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SMGSDISPLAY_CHANGE = Virtual Display -- Changes 1b-5e Sep-1 :3 AX-11 Bliss-32 V Pa 1 
: . eet hi 99: 8; 8 SMGRTLeS e$snepiscna. 5 2;1 ° (1) 

A CHANGE - Virtual Display -- Changes to Displays’ 

5 


RTITLE sheast Y 
EN 4 = "1-048" ! File: SMGDISCHA.B32 Edit: PLL1048 


ISPL 
MODULE SMGSDISPL un 
d= 


ROR ARERR A AERA AAA AEA AA AAHE HEARTH AAA AAAAT AERA eeKAKAHeee AAA eee 


“Sa | 
ee | 
; 5 1 BEGIN 

3 8 1! 

3 1 

3 3 ° 8 1 !e 

3 09 1 !* COPYRIGHT ce) 1978, 1980, 1982, 1984 BY * 
; Ww 10 1 '* DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. * 
3 ie 1} : ALL RIGHTS RESERVED. * 
° . Y 
3 ig ig 1 !* THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED * 
; Bi2 1 !* ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE * 
; 15 15 1 !* INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER * 
3 1 B28 1 !* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
; 1 9 1 !* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY ® 
3 + BIS ; - TRANSFERRED. * 
oO :* ft 
H 0 0020 1 !* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
; 1 0021 1 !* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT © 
3 ¢ 85 ¢ : is CORPORATION. : 
: i 0024 1 i DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * 
3 § 8252 ! - SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. * 
* . ® 
3 56 9057 1 !e * 
3 $8 83 3 : aia aan esata hiatal tai tatiana 
a 0030 1 

3 1 0031 1 !+¢ 

; ¢ 00 § 1! FACILITY: Screen Management 

; 0033 1! 

3 4 Boe 1 | ABSTRACT: 

3 5 0035 1! The procedures in this module update and maintain the sentents 

3 6 0036 1 | of the in-memory representations of the virtual displays. The data 

3 7 0037 1! areas themselves are allocated/deallo sates, g,Rested/vpestes. etc. 

3 8 0038 1} vi the procedures in module SMGSDISPLAY rom these 

: 9 0039 1! virtual displays is pended by ranmerte SMGSDISPLAY_OUTPUT. 

;s & 0 1! The module SMG DISPL Y_INPUT contains the routines that Support 

3 461 39 ok. operations on "aiiel een. 

=: aE 

; 64 1 

: 44 41: 

3 ri 5 : ENVIRONMENT: User mode, Shared Library routines. 

: 7 : AUTHOR: R. Reichert, CREATION DATE: 26-Jan-1983 

; 49 ‘3 MODIFIED BY: 

: 1 51 11 1- 70 g - Change error messages by SMGSSET_CURSOR_REL. STAN 3-Jun-1984. 

3 2g 26 1! 1-047 - — off the scrolling bit whenever sequential output ends, ie. 

3 531i enever the cursor may be randomly positioned. eft 3-May-1984 

; : $3 ! & 1-001 - aan fl Skeleton for future code. RKR 26-Jan-1983 
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Declarat -Sep-19 SMGRTL.SRCJSMGDISCHA. 3 2;1 
: 3 ' § } TSBTTL *Declarations' : 
; § | | SWITCHES: ; 
; if 060 1 ; 
; 8 0064 1 | LINKAGES: 
>; 646 D065 1! 3 
; 65 064 1 | NONE : 
: 8 Bey i ‘ : 
i 6 0066 1 | TABLE OF CONTENTS: : 
: OB 006 : ' : 
3 UG P 
: 76 3089 | FORWARD ROUT INE : 
3 D0 3 
ec 0071 1 ! Public entry points: 
; oP 73 1 —_—_- SMGSCHANGE_RENDITION, ' Change video attributes of ; 
soe 1 ' something already in a virtual : 
: re : ! display : 
: #78 1 SMGSCURSOR_COLUMN, ! Function to return current 3 
: 79 : ! cursor col. within virt. disp. : 
: Hi 1 SMGSCURSOR_ROW, ! Function to return current 3 
: 8s : ! cursor row within virt. disp. : 
; 1 SMGSDELETE_CHARS, ! Delete characters from within ; 
; 3? : ! a Line in a virtual display. : 
: 87 1 SMGSDELETE_LINE, ' Delete Line in a display & ; 
3 4 : ! scretl remaining Lines : 
: 90 1 SMGSERASE_CHARS, ! Erase characters in a display : 
; 4 : ! w/out moving remaining text ; 
; 38 | _SNGSERASE_DISPLAY, ! Erase virtual display 3 
: 95 1 SMGSERASE_LINE, ! Erase from position to end ; 
3 38 ! ! of Line : 
: 98 1 SMGSHOME _CURSOR, ' Move cursor to one of the 4 ; 
3 185 : ! corners of the virtual display : 
; ist 1 SMGSINSERT_CHARS, ' Insert characters in a Line ; 
3 198 ! ! of a virtual display. : 
; 194 1 SMGSINSERT_LINE, ! Insert Line in a virtual ; 
: 108 i display : 
: 198 1 SMGSPUT_CHARS, ' Put text to display without : 
3 Hs ; ! additonal cursor motion. | : 
: 110 1 SMGSPUT_LINE, ! Put text Line to display with : 
s 97 1 ' optional additonal cursor : 
3 118 ' ! motion. | : 


a3 


: a 
PRIOaT_om poteteyagsOmnt = viroat Wtaptey —- Canam He feeits MEIGS TAN 
' 
i 


REQUIRE ‘RTLIN:SMGPROLOG'; ! es psects, macros, tcb, 
terminal symbols 
JS8 Cink kage 


Oooo 


os 


REQUIRE *RTLIN:STRLNK'; 


13 11} 1 SMGSREAD_FROM_DISPLAY, facta text back from virtual 
1g 115 
1 118 SMGSPUT_WITH_SCROLL, ! Scroll a virtual display and 
1 11 ! place callers text into opened 
1 1; ! area. 
1 1 
§ ; ! position (row/column). 
4 ; § SMGSSCROLL_DISPLAY_AREA, ! Scroll a rectangular area 
é 125 SMGSSET_CURSOR_ABS, ! Move cursor to absolute 
; § ! position specified. 
§ 128 SMGSSET_CURSOR_REL; ! Move cursor relative to its 
129 ! current position. 
) i 
‘ 1 ; ! INCLUDE FILES 
1 : 
5 : ; 
a4 


! EXTERNAL REFERENCES 


EXTERNAL ROUTINE 
LIB YZE_SDESC_R2 : LIBSANALYZE_SDESC_JSB_LINK, 


o@ MPwn— 
a ee ee el a a a a a 


SMGSRETURN_CURSOR_POS, ! Returns current cursor 
| 
| 
| 


. 
. 
. 
” 
. 
. 
. 
. 
. 
o 
. 
. 
. 
. 
. 
° 
. 
- 
. 
o 
. 
7 
. 
« 
. 
e 
. 
. 
. 
o 
7 
. 
. 
. 
. 
. 
. 
o 
. 
. 
. 
. 
. 
os 
. 
. 
. 
. 
. 
o 
. 
. 
. 
. 
. 
. 
. 
. 
. 
. 
. 
. 
. 
. 
. 
. 
. 
. 
. 
. 
. 
. 
. 
. 
. 
. 
. 
. 
. 
. 
. 
. 
. 
. 
. 
. 
. 
o 
. 
o 
. 
. 
. 
. 
. 
- 
. 
. 
- 
7 
. 
. 
. 
o 
. 
. 
. 
2 
. 
. 


'¢ 
! The following macro determines whether scrolling up, down, or neither 
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40 
re 
a3 
i 
*$ LIBSSCOPY_R_DX6 : STRING_JSB, ! String copier 
$8 SMGSSCHECK_FOR_OUTPUT_DCB, ! Force output if now is the time 
50 10 SMGSSPUT_TEXT_TO_BUFFER, ! Move callers text to virtual 
1 11 ! display text buffer checking 
§ i ! for characters that affect 

1 ! where characters land in 
55 1 ! buffer. 
$ 1g SMGSSSCROLL_AREA; ! Scroll a rectangular area 
35 3 sing 

1 SMGS_FATERRLIB, ! Fatal error in SMG$ -- internal consistancy | 
60 0 ! check failed. 
o1 1 snes | mvens. } invatigs argument 

e ! Inva 

8 ‘ SMG$_INVDIS_ID, ! Invalid virtual di dtsplay id 
64 & SMG$_INVPAS_ID, ! Invalid pasteboard 
65 5 — INVROW ! Invalid row number 
4] $ SMG$_NO_CHADIS, ' No change to virtual étepley 
es : $~WRONUMARG; ! Wrong number of arguments 
¥0 


1 
PRUar-om potazeyargtmt = vireat wtantey-- Comes HE Heeits MEIGS WSL Mheatbleha. 


3 } } } should occur. 

; i " MACRO SSMGSSET SCROLLING (SWITCH) = 

s ¥ 1 SWITCH = 0; init scroll to off 

: 1 : * 1 IF -DCB COCB_V_FULL] NEQ 

3 if : : WE gin ! display is full, check other conditions 

: 43 " ; Feiee® CDCB_W_CURSOR_ROW] EQL .DCB CDCB_W_BOTTOM_OF_SCRREG) 
: 181 M0441 1 SWITCH = 1 ! scroll up 

. ¥ ; M0442 1 ELSE 

; i A $3 ! IF DCB CDCB_W_CURSOR_ROW] EQL .DCB CDCB_wW_TOP_OF _SCRREG) 
; 185 m 0445 1 SWITCH = 2; ! scroll down 

ay 4 46 1 END: 

Ss 47 1 END;2; 

..% $3 1 

. 49 1 !<BLF/PAGE> 
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ISPLAY_CHA SMGSDISPLAY CHANGE = Virtual Display -- Changes 16-Sep-1984 00:16: AX-11 Bliss- 4.0-74 
a SMGSCHAN "RENDITION = Change Rendition ° 132808-1382 99 48:25 SNGRTL SRE ISHED! SCHA.BS251 Snes (33 
; ZSBTTL ‘SMGSCHANGE RENDITION - Change Rendition’ 
GLOBAL ROUTINE SROSCHANEE RENel ION (¢ 


a3 


START_ROW, 
START-COL, 
NO ° 


| 
NO. | 
RERDITION_SET 
RENDITION COMPLEMENT 


3 4s et tt 


SSLESFANVLSS 


oe 


! FUNCTIONAL DESCRIPTION: 


woowovoo so 
rrr 
PEA ASM NTIUIVIVIUIVT 


This routine changes the video rendition of a rectangular block of 
text already in the specified virtual display. 

Use 9 this routine makes it easy, for example, to redisplay a 
particular column in reverse video. 


CALLING SEQUENCE: 


causes the corresponding attribute to 
be set in the display. (See below for 
List of settable attributes.) 


RENDITION_COMPLEMENT.rl.r 
Each 1 bit attribute in this parameter 
causes the correspendin attribute to 
be congtonentes n the isptay, (See 
below for List of complementable 
attributes.) 


If the same bit is specified in both the RENDITION_SET parameter 


10 : 
11 0 ret_status.wic.v = SMGSCHANGE RENDITION ( 
\¢ 471 DISPLAY_ID.rl.r, 
1 a ROW. rler, 
14 7 START COL.rl.r, 
15 74 NO_ROW.rl.r, 
1 75 NO COL.rl.r, 
1 7 »RENDITION_SET.rl.rJ 
+ f »RENDITION_COMPLEMENT.rl.rJ) 
e279 FORMAL PARAMETERS: 
¢ 0481 DISPLAY_ID.rl.r Display id of desired virtual display. 
4 wee START_ROW.rl.r Starting row. position to receive new 
5 rtf: rendition 
§ Hy] START_COL.rl.r Starting column position to receive 
4 new rendition. 
: 89 NO_ROW.rl.r No. of rows to receive new rendition 
§ 91 NO_COL.rl.r No. of columns to receive new 
3 rendition 
5 3¢ RENDITION_SET.rl.r Each 1 bit attribute in this parameter 
3 
39 
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12 
n8eB T= SRESCHANGE RENDITION = Change Rendition anaes bata 8:08:28 YSKante’SeSsmeplscha.082, 1 


7 and in the RENDITION_COMPLEMENT parameter, the application is 
ane lt F SET followéd by RENDITION tercise.ari sing these two 
gereneter’ together the caller can exercise . trary and 


, te 


ndent control over each attribute on a note alt. an 

1 attribute or attr bute basis he can cause the. following 
: transformations 
: SET COMPLEMENT Action 
1 9 epee Attribute unchanged. | 
1 Attribute set to ‘‘on’’ 
1 0 Attribute 4 Bby to complement of 
1 current sett 

1 1 Attribute set to "off". 


SOA 
uw 


Attributes which can be manipulated in this manner are: 


SMGSM_BLINK displays characters blinking. 
SMGSM_BOLD d $P ays characters in higher-than-normal 


SMGSM_REVERSE ‘displays. characters in reverse video -- that is, 
= net Bs pol te default rendition of the 
SMGSM_UNDERL INE displays’ characters underlined. 
IMPLICIT INPUTS: 
NONE 
IMPLICIT OUTPUTS: 
NONE 


COMPLETION STATUS: 


VFN —OOONOA VE WO CONOu 


Invat | successful completion 
Snes IN INVROU inval d start row -- outside virtual disp 
SMG$_INVCOL at! start solves -- outside virtual d 
SMG$_INVDIS_ID “Tova d As AB 

SMG$_ INV : 


la 
is 
ARG” no. of aL, -- outside virtual d sptey 


y- 
play. 
lay 

or veri no. of columns -- outside virtual disp 
or Unrecognized action code. 
or Unrecognized rendition code. 

SMG$_WRONUMARG Wrong number of arguments. 


SIDE EFFECTS: 
NONE 
BEGIN 


LOCAL 
START_INDEX, ! Byte offset into attribute buffer 


DCB : REF SDCB_DECL, ! Addr of display control block 


lay. 


PAA EEE EEE EE 


CRIS SRSVSAFTUNAS SRNR SS 


Dwell al al tala al eal al ala ahah ah ah ab ab ah ah ah eh dh ahaa al alee Ww Ww www 


PIII wt ast st at st tt tt tk tt hh 


3 
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Fe PLAY ACMA SUES CHANGE RENDITION © Chenge Rendition “ranges 1b Beo- 1944 99:08:28 HeMaatesatSsagolscha-e$e:1 
REND_CODE. ' video rendition <= set up by 
i YSRGSSET REND. CODE 


ATTR_BUF : REF VECTOR C,BYTE]; ! Adar of attribute buffer for 
! this virtual display. 


LTTEPASET_ARG = 6 
= 

K-COMP_ARG = 

SSMGSVALIDATE_ARGCOUNT (5,7); 


SSMGSGET_DCB ( .DISPLAY_ID, DCB); set peer of display control 
! bloc 


'¢ 
Validate arguments, make sure row & column are within the display. 
SSMGSVALIDATE_ROW_COL (..START_ROW, ..START_COL); 


IF ..NO_COL LEQ 0 OR 
A pe LEQ 


RETURN (SMG$_NO_CHADIS); 


SSMGSVALIDATE_ROW_COL (..START_ROW + ..NO_ROW - 1 
-STARTICOL # ..NO-COL = 15; 


ATTR_BUF = .DCB CDCB_A_ATTR_BUF); 
!' addr of attribute buffer 


SSMGSSET_REND_CODE (K_SET_ARG, K_COMP_ARG); 
! set rend_code w/default or caller's args 


MEW“ OO@NOU SW" OOOWou 


'+ 

! Set the rendition bytes in the attribute buffer on a Line by Line 

! basis, in case the change does not include the entire Line. 

! Be careful to preserve the other bits in the rendition byte that have 
; nothing to do with rendition. 


START_INDEX = SSMGSLINEAR (..START_ROW, ..START_COL); 
pace CINE COUNT FROM 1 TO ..NO_ROW 


BEGIN ! For each ‘_ 
INCR COL_COUNT FROM 0 TO (..NO_COL = 1) 


BEGIN ! For each column 


ATTR_ BUF C.START_INDEX + .COL_COUNT ) = 
(,ATTR_BUF C.START_INDEX + 7COL_COUNT] 


AND 
( NOT (SAGE BL 16K ¢SRGEN_BOLD+SAGER_REVERSE +SNGSM_UNDERL INE) ) 
»REND_CODE ; 


WN —OOONOUS WOO 


aaa 
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vo 
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Se ee ee Oe Oe Oe ee Oe Oe Oe St ee 
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$ A $ = ee - - 
Fert AY cM SURE CHANGE RENDITION © Change Rendition nenee® ]o- sp 198e 99:08:28 Eemaate Sa Ssagolschaco$2: 1 peer of 
¢ END; ! For each column 
prant.. InpeE = START INDEX + .0CB COCB_W_NO_COLS]; ! To next row start 
END ! For each row 


r¢] 5 
'¢ 
$ See if this change should be reflected on the screen right away. 
RETURN (SMGSSCHECK_FOR_OUTPUT_DCB (.0C Bs 


7 
7 SMG 
i 2 END; ! End of rou 


HANGE_RENDITION)); 
rine SHOSCHANGE. RENDITION 


TITLE SMGSDISPLAY_CHANGE SMGSDISPLAY_CHANGE - Virtual 
3 Display --" Changes 
-IDENT \1-048\ 


-EXTRN LIBSANALYZE . spe sc. R2 


-EXTRN LIBSSC R-DX 

‘ N SMGSSCHECR_FOR_OUTPUT_DCB 

-EXTRN SMGSSPUT_TEXT_TO_BUFFE 

~EXTRN SMGSSSCROLL_A 

»EXTRN ris doll gel nes, INVARG 

-EXTRN SMG$_INVCOL $_1D 
s -EXTRN SMGS_ INVPAS. ID, en OnvRow 


-EXTRN SMGS_NO_CHABIS, SMGS_WRONUMARG 
-PSECT _SMGSCODE,NOWRT, SHR, PIC,2 


O7FC 00000 ENTRY reas RENDITION, Save R2,R3.R4,R5,R6,- ; 0451 
iS SROUEN8SE move genes INU. 839 ; 
50 5 é SUBB3 Ae enh NY MOLE > 0574 
0 91 CMPB Dif, #2 : 
8 1 BLEQU. 1 3 
50 000000006 &F p0 MOVL #SMGS$_WRONUMARG, RO 2 
50 0 B 06 MOVL § @DISPLAY_ID > 0576 
06 BC 8 A p CPL 6(RO), SDISPLAY. 1D ; 
1 44 A9 9 CMB (RO), #17 : 
50 000000006 SF MOVL WSMG$_INVDIS_ID, RO ; 
BC D MOVL § @DISPLAY_ID, DCB : 
¢ 8 09 Ov : TART_ROW, 'R4 ; 0583 
54 02 A2 10 9 f cHPZV #9, #16, 2(DCB), R4 
50 9 i MOVL R9, RO : 
53 0c 09 MOVL § @START_COL, R3 : 
6 BLEQ $ 
53 06 A2 10 FD CMPZ2V #0, #16, 6(DCB), R3 F 
4 GEQ F 


50 


50 


FPgSR SPLAT CHA sree? 


02 


1$ e RENDI TI 


50 


Ad 


53 


6341 
EC 


- Virtual Displ 
ON = Change Rend 


{tion 


50 cA 
58 14 Bg 
10 68 
50 000000006 
4 1 
am bs 
A 
10 
50 9 
i 
A 
. 
bs 
50 A 
51 14 =A 
57 2 OA 
06 6C 
09 
18 AC 
04 
57 18 BC 
07 C 
9 
1c) =A 
04 
57 1¢ =6BC 
50 FF AG 
50 06 A2 
4 54 
FF A340 
maces Ee 
i 
; oF 
4 ; 
1 af 
0 5 
6 10 C 
A 
000000006 00 5 
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“oe ele 
. Ch One 


“3233 
—* 
oe oe oe ee oe oe oe ee eee 


> 


> _+_+_+_+_+_+_+_+_¢_+_+_¢_+ 


~- 


f= 
2¢ 


SOc 
2 


PS aoVn2lRSacIa= 


CWT DWNT SO 


-o— -o— 
2oen 0-90 -00"0 


2 


© 
= 


CSVOoaoOoO 
REELS SAS SUS MAS Mone rw 


COCO MBA MMMMMNoCSO 


14$: 


15$: 


16$: 


17$: 


18$: 


19$: 


1986 99:08:25 


AX-11 Oh tag -52 v4 
SMGRTL.SRC 


R10, RO 
gn0_cOL, RB 

$ 

ROW 

SMGS$_NO_CHADIS, RO 
@NO_ROW, R4, R 
ppg. a, 
i $ 
#04 #16, 2(D¢B), RO 
RI, RO 
+ be 
$ 

#16, 6(DCB), RO 


B), ATTR_BUF 
B) , REND_CODE 


\Ty¥+s~ 4 Dz—-BRD—-DD 
+24 _ 
mea-@ 


et REND_CODE 
AP), # 


=——-- 


@RENDITION_COMPLEMENT, REND_CODE 
=1(R4), RO 
6(DCB), R4 


R4 
-1(R3)CROJ, START_INDEX 
NE_ COUNT 


#1, COL_COUNT 


COL_COUNT, START_INDEX, R3 
(R sEATIR: BURA. ag 


R 
R RS, (R3)CATTR_BUF 
Rew cout bunt HH ere 
6(bcB) R 

R3, START_INDEX 


aNd ROW. CINE_COUNT, 16$ 


dCB 
1. SMGSSCHECK_FOR_OUTPUT_DCB 


—— 


SMGDISCHA.B52;1 


0396 
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; Routine Size: 269 bytes, Routine Base: _SMGSCODE + 0000 


; 374 0633 1 !<BLF/PAGE> 
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17868 "=""* SRGSCURSORCOLUMN = Return current Cursor column ie-Sep-1986 99:08:00 ESnaRtL SRE Seago! SehacB 82:1 


ZSBTTL ‘SMGSCURSOR COLUMN = Return current cursor column position’ 
GLOBAL ROUTINE SRCSCURSOR.COLUMN’ < SISPEAY ID Soe a 


; FUNCTIONAL DESCRIPTION: 


no 


This functions returns the current cursor column position in the 
specified virtual display. 


f the specified virtual display id is invalid, SMG$_INVDIS_ID 
s signaled. 


CALLING SEQUENCE: 
CURSOR_COLUMN.wl.r = SMGSCURSOR_COLUMN ( DISPLAY_ID.rl.r ) 
FORMAL PARAMETERS: 
DISPLAY_ID.rl.r Display id of desired display. 
IMPLICIT INPUTS: 
NONE 
IMPLICIT OUTPUTS: 
NONE 
ROUTINE VALUE: 


PO 


2.2.2.2. 


SS ESSSSSSSS 
QODNON EWN O0BNOUE WIN O 00 


See 


CURSOR_COLUMN.wl.v The current cursor column number in the 
display. 


r™ 
o 
eS 


SIDE EFFECTS: 


SMGS_INVDIS_ID will be signaled if D 
SMG$_WRONUMARG will be signaled if D 


1 
1 
1 
1 
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1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
: 
: SPLAY_ID in invalid. 
1 
BEGIN 
BUILTIN 


I 
ISPLAY_ID is omitted. 


335 


= 
AANNY 


NULLPARAME TER; 


LOCAL 
DCB : REF SDCB_DECL; ! Addr. of display control block 


S WULLPARAMETER(DISPLAY_10) 
SIGNAL_STOP ( SMGS$_WRONUMARG); ! Display id has to be there 


oa 
~“ 
NOUS WUN CO OOnNO 


‘+ 

! The next few Lines of code validate the supplied device id. It 

! does precisely what SSMGSGET_DCB does except it signals where that 
macro would return a status. 


Rtatatatatotat 
StaNo 


DCB = ..DISPLAY_ID; ! assume it is correct 


IF .0CB COCB_L_DID] NEQ ..DISPLAY_ID 
THEN 
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SET TSPLAT_ CHA SMGSDISPLAY CHANGE = Virtual Display <= Changes 1 


19be 98:08:40 ESMcntuesReSsmaplscna-692;1 


Not pointing to one of our 


SMGSCURSOR_COLUMN = Return current cursor colum 1 


SIGNAL_STOP (SMG$_INVDIS_ID); 
!' control blocks 


If _.DCB CDCB_B_STRUCT_TYPE] NEQ DCB_K_STRUCT_TYPE 
SIGNAL_STOP (SMG$_INVDIS_ID); 


! Not poretrns to a DCB 
! bloc 


! Give them what they asked for 
! End of routine SMGSCURSOR_COLUMN 


RETURN (.DCB CDCB_W_CURSOR_COL]); 


3; Routine Size: 


3 
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Routine Base: _SMGSCODE + 010D 


1 !<BLF/PAGE> 


SMGSCURSOR_COLUMN 
SMG$_INVDIS_ID, R4 
LIGSSTOP, R3 


Save R2,R3,R4 


4(AP) 
SMG$_WRONUMARG 
IBSST 


@DISPLAY_ID, DCB 
56(DCB), a@DISPLAY_ID 
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ergee ePL at CHA SMGSDISPLAY_CHANGE = Virtual Display -=- Change 16-Sep-1984 90: 16:38 AX-11 Bliss-32 V4.0-74 Page 13 
SMGSCURSOR_ROW = Return current cursor row oes 14-Sep-1984 15:09:4 SMGRTL.SRCJSMGDISCHA.B32;1 (5) 
> 44 703 (1 esetTt *SMGSCURSOR_ROW - ature current cursor row position’ | 
; tts f ¢ 1% pt LOBAL ROUTINE SMGSCURSOR_ROW ( DISPLAY_ID ) = 
; 449 206 FUNCTIONAL DESCRIPTION: 
: ree $F 8 ii This functions returns the current cursor row position in the 
; tz att ! specified virtual display. 
: 454 711 1 If the apesteree virtual display id is invalid, SMG$_INVDIS_ID 
BOP Ed UE Be hicee 
; 437 yah 1} CALLING SEQUENCE: 
; rhe B78 : CURSOR_ROW.wl.r = SMGSCURSOR_ROW ( DISPLAY_ID.rl.r ) 
: 461 0718 FORMAL PARAMETERS: 
: ass 3759 ! DISPLAY_ID.rl.r Display id of desired display. 
: 465 O72 IMPLICIT INPUTS: 
ee ee 
: 469 0726 } | IMPLICIT OUTPUTS: 
Bee cB ee 
: 47s at { ROUTINE VALUE: 
; rte Ors : CURSOR_ROW.wl.v The current cursor row number in the display. 
: a7 0734 SIDE EFFECTS: 
: 479 0736 1: SMGS$_INVDIS_ID will be signaled if DISPLAY_ID in invalid. 
3 rts Ore : te SMGS ~URONUMARG n LL be signaled if DISPLAY_ID is omitted. 
: 48 $739 BEGIN 
; 48 0740 BUILTIN 
; 486 0741 NULLPARAMETER; 
: 485 tok 
3 rt] 074 LOCAL 
; re tH tog: DCB : REF $DCB_DECL; ! Addr. of display control block 
; 489 ors IF _NULLPARAMETER(DISPLAY_ID) 
; Phd 8 SIGNAL_STOP ( SMG$_WRONUMARG); ! Display id has to be there 
3 49 a780 1+ 
3 494 751 i The next few Lines of code validate the supplied device id. It 
: 4495 7 § ! does precisely what SSMGSGET_DCB does except it signals where that 
3 rt 4 z ‘ macro would return a status. 
: 498 755 "DCB = » -DISPLAY_ID; ! assume it is correct 
; 499 4 $ 
; 501 7 ; 
; 502 075 SIGNAL_STOP (SMG$_INVDIS_ID); ! Not pointing to one of our 


IF .DCB CDCB_L_DID] NEQ ..DISPLAY_ID 
THEN 
| 
} 


: 503 760 

; 504 761 
BOE 

: 398 ree 

3 oS 765 

3 9 76 

3 10 76 

: 11 768 

s $i2 0769 1 


; Routine Size: 66 bytes, 


3 $135 
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16-Sep-1984 00:16:3 AX=11 Bliss-32 V4.0-74 
SMGSCURSOR_ROW = Return current cursor row post 132808=1 382 99:08:26 SMGRTL.SRCIJSMGDISCHA.B52;1 


' control blocks 
IF .DCB COCB_B_STRUCT_TYPE] NEQ DCB_K_STRUCT_TYPE 
SIGNAL_STOP (SMG$_INVDIS_ID); ! Not pecnty to a DCB 
' bloc 


RETURN (.DCB CDCB_W_CURSOR_ROW]); ! Give them what they asked for 


END; ! End of routine SMGSCURSOR_ROW 

54 000000006 Pag: 00008 HOVAB. SmeS INYO IS Gh. seve sos ace 

53 000000006 8 9 ita MOVAB LIBSSTOP, R3 
6c 9 90019 TSTB = CAP) 
05 13 0001 BEQL «1 

04 AC 05 00014 TSTL (AP) 
09 12 00017 BNEO 
000000006 00 9F 00019 1s: PUSHAB SMG$_WRONUMARG 
01 FB OOOTF CALLS #1, CIBSSTOP 
2 04 BC 00 000¢2 2$: MOVL  @DISPLAY_ID, DCB 
04 BC 8 A2 D1 00026 CMPL  56(DCB), ~@DISPLAY_ID 

05 13 00028 BEQL 6s 3$ 
54 DD 00020 PUSHL R4 

63 01 FB 00 F CALLS #1, LIBSSTOP 

11 44 ag 91 00032 3$: PB 68(DCB), #17 
05 13 00036 BEQL 4$ 
54 DD 000 PUSHL R4 

63 01 FB 003A ALLS #1, LIBSSTOP 

50 28 A2 3C 0003D 4$: MOVZWL 4O0(DCB), RO 

04 00041 T 


Routine Base: _SMGSCODE + 014F 
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0746 


0748 


0755 
0757 


0759 
0762 
0764 


0767 
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COMPLETION STATUS: 


S$S$_NORMAL Normal successful completion 
SMGS_INVROW Invalid row specification-- outside virtual 


display. 
SMG$_INVCOL Invalid column specification -="outi ide virtual 
splay. 


‘G2 05 Cd Od Cd OD: 


PUP PPI AIAIGIVIVIV 
TSSSLIFSAF 
Roronoforororury» 


SMG$_INVDIS_ID Invalid display id. 
SMG$"WRONUMARG Wrong number of arguments. 


13 
S$ ISPLAY_CHA SMGSDISPLAY_CHANGE = Virtual Display <= Changes 1b-5¢ -1984 00:16:3 AX-11 
regee SMGSDELETE_CHARS = Delete Characters . 1 2300-138 99 08:25 SMGRTLS 
s $15 7 1 ZSBTTL ‘SMGSDELETE CHARS = Delete Characters’ 
: 1 as 1 GLOBAL ROUTINE SMGSDELETE_CHARS ( 
Pas Bat Bsr 
: 338 Ore ees 
: 524 tS | OL 
; g 78 i i FUNCTIONAL SCRIPTION 
: 554 0780 1 i se 
3 6Dee 738i 1! This routine deletes the number of characters specified starting 
: 3 $ §7 86 ! at the row/column specified. 
: 528 0784 1! Remaining characters on the Line to the right of the deleted 
: 529 0785 1! characters are shifted to the left to occupy the vacated 
: H , th) : space(s). 
: 53 0788 1! The internal display cursor position is left at the specified 
: 338 14 ' start position atter the seeratien. . 
: 535 791 1 | CALLING SEQUENCE: 
; 536 O78 : 2 
3 Sor 0793 1! 
; 538 0794 1! ret_status.wlc.v = SMGSDELETE_CHARS ( 
; 5339 0795 1! DISPLAY_ID.rl.r, 
3; 540 0796 1! NUM_CHAR.ri.r, 
BO aie 
: 3g 0799 11 acloet 
> 544 0800 1 ! FORMAL PARAMETERS: 
> 545 0801 1! 
: 348 oa0$ : } DISPLAY_ID.rl.r Display id of desired virtual display. 
; 228 Bape : NUM_CHAR.rl.r Number of characters to be deleted 
3 $56 Bane ! ROW. rl.r Row position at which to start deletion. 
: 226 0808 1: COL.rl.r Column position at which to start 
: 0809 1! deletion. 
; 554 0810 1! 
3 339 0811 1 =! IMPLICIT INPUTS: 
; 556 Bais 1! 
s S37 0813 1! NONE 
; 228 baie 1! 
; 9 i } IMPLICIT OUTPUTS: 
; a8? 1 i NONE 
FY 313 1! 
; 1 1! 
2 a. 3 
; , 4 i 
. 1 ' 
F gyi 
: Re 
3 , a> 
. 3 8 
; gti 
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E_CHARS = Delete Characters Sep-1 
: SMG$_INVARG Number of characters specified starting at 
specified row and column extends outside of 
virtual display. 


SIDE EFFECTS: 


NONE 

BEGIN 

LOCAL 
NUM_TO_MOVE, ! No. of char positions to move left 
DCB : REF SDCB_DECL; ! Addr of display control block 


SSMGSVALIDATE_ARGCOUNT (4,4); 


SSMGSGET_DCB ( .DISPLAY_ID, DCB); ! Get addr of display control 


+ 
! Validity check row and column specified 


SSMGSVALIDATE_ROW_COL ( ..ROW, ..COL); 


! 
! Call SMGSSSCROLL_AREA to do the work. It will shift the text left and 
! blank fill the vacated space. 


NUM_TO_MOVE = ..NUM_CHAR; ! Assume number is ok 
IF 7.COL + ..NUM_CHAR -1 GTR .DCBCDCB_W_NO_COLS) 
N ! Truncate to what's left on Line 
NUM_TO_MOVE = .DCB CDCB_W_NO_COLS] - ..COL + 1; 


SMGSSSCFOLL_AREA (.DCB, ..ROW, ..COL, 
, .bCB CDCB_W_NO_COLS) 
SMGSM_LEFT, .NOM_TO_MOVE); 


te 
: Make sure cursor points to first requested delete position. 


DCB COCB_W_CURSOR_ROW] = ..RiDW; 
DCB CDCB"W"CURSOR-COL] = ..CUL: 
DCB COCB_V_FULL) = 0; ! turn off scrolling 


'¢ 
: See if this change should be reflected on the screen. 


RETURN (SMGS$CHECK_FOR_OUTPUT_DCB (.0CB 
SMG$C_DELETE_CHARS, 


ee W . 
END; ! End of routine SMGSDELETE_CHARS 
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3; Routine Size: 
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166 bytes, 
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SMG$D CETe CHARS - Delete Characters 


000000006 
38 
4h 
000000006 
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000000006 
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000000006 
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FF Al 
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_-SMGSCODE + 0191 


Sep-1 
Sep-1 


36¢ 19:08:20 


AX=-11 Oi fegeze vV4.0-7 
SMGRTL.SRC 


SRCSOEL ETE CHARS, Save R2,R3,R4 
(AP), # 


#SMG$_WRONUMARG, RO 


DISPLAY_ID, RO 
6(RO), SDISPLAY_ID 


(RO), #17 
#SMGS_INVDIS_ID, RO 
@DISPLAY_ID, DCB 
aROW, R4 
#0, #16, 2(DCB), R4 
WSMGS_INVROW, RO 
acoL, R3 
#0, #16, 6(DCB), R3 
#SMG$_INVCOL, RO 
@NUM_CHAR, R1 
R1, RUM 19_MOvE 
-1(R1)C(R3)7 RI 
#0, #16, 6(DCB), R1 
6(D¢B) R1 
1(R1), NUM_TO_MOVE 
NuM_T0_MOVE 
6(DCB), -(SP) 

#1 


OLL_AREA 


DCB 
a SMGSSCHECK_FOR_OUTPUT_DCB 


‘ 4g 
SMGDISCHA.B52; 
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1 XSBTTL "SMGSDELETE_LINE - Delete Line in Display’ 
BPOBAL ROUTINE SMESDELETE LINE iotaes te — 


= I ‘ 
START_LINE_NO, 
NUM_LINES 


2 Phe 
GDISCHA.B52;1 


VW —O”O 


'e¢ 
: FUNCTIONAL DESCRIPTION: 


This routine deletes one or more Lines in a virtual display 
and scrolls up remaining Lines into the created space. 


UEPWwN—OO° 


oooono 


The internal display cursor position is left at the first column 
of the start Line. 


i CALLING SEQUENCE: 
i ret_status.wlc.v = SMGSDELETE_LINE (DISPLAY ID.rl.r 


_LINE_NO.rl.r 
»NUM_LINES.rl.rJ) 


SaNF 


3323233 


i FORMAL PARAMETERS: 
i DISPLAY_ID Display id of desired virtual display. 
START_LINE_NO.rl.r 


' 

' 

' 

' 

' 

' 

' 

' 

' 

' 

' 

' 

' 

' 

' 

' 

' 

' 

' 

: Address of Line number where deleting/scrolling 
starts. 
' 
' 
' 
' 
' 
' 
' 
' 
' 
' 
' 
' 
' 
' 
' 
' 
' 
' 
' 
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NUM_LINES.rl.r Optional. Number of Lines to delete/scroll. 
If not specified, defaults to 1. 


IMPLICIT INPUTS: 
NONE 

i IMPLICIT OUTPUTS: 

i NONE 

i COMPLETION STATUS: 
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09 
43 
9 
09 
09 
09 
09 
09 
669 9 
670 G 
14 , SS$_NORMAL Normal successful completion 
ore 9 ' SIDE EFFECTS: 
674 9 
675 NONE 
676 9 tee 
67 9 BEGIN 
o78 9 BUILTIN 
6 i NULLPARAMETER; 
est LOCAL ’ 
§ 9 DCB : REF SDCB_DECL, -! addr of et eplay control block 
oR ; 3 WORK _NUM_LINES; ! working number of Lines 
685 940 SSMGSVALIDATE_ARGCOUNT (2,3); 


ISPLAYCHA SHGEDISPLAY CHANGE = Virtual Display == Changes 1)-13-1986 00:16:3 AX=11 Bliss-32 v6.0 
roc MESDELETE CINE = Delete Line in Display ne JacsepnoRe Sesoses || Famer te tdeSsmeplscca eS. 


LINE_CHAR = .DCB CDCB_A_LINE_CHAR); 
LINE_CHAR : VECTOR C,BYTE); 


INCR ROW_NUM FROM 1 T WORK. =NUM_LINES DO 
LINE-CHAR C.ROW_ NUM s = 


ie SSMGSGET_DCB (.DISPLAY_ID, DCB); 

94 I get address of display control block 
6 308 ‘+ 

$3) B08 Validate arguments and set up working temporaries. 

69 94 ; 

694 368 IF ..START_LINE_NO LSS .DCB COCB_W_ROW START] OR 

$33 329 .»START_LINE_NO GTR .DCB CDCB-W-NO_ROwS) 

637 326 RETURN (SMG$_INVROW) ; 

oy Ree IF NOT NULLPARAMETER (NUM_LINES) 

00 5 THEN 

701 328 BEGIN 

70 5 WORK_NUM_LINES = ..NUM_LINES; 

A R28 Z “START, LINE_NO + Tabane _NUM_ LINES -1 GTR .DCB CDCB_W_NO_ROWS] 
oe Beet RETURN (SMG$_INVARG); 

10 8208 ELSE 

As 96 WORK_NUM_LINES = 1; 

49 365 bts 

1 i Reset the Line characteristics in case the Line was previously 
. O68 3 | : _double high or wide. 

1 

1 35 BEGIN 

1 BIND 

1 

1 
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'¢ 
1 i Call SMGS$SCROLL_AREA to do the work. It will move Lines up or down, 
- overwriting the Tines that are to be deleted. 


SMGSSSCROLL_AREA (. 31h 
» START L 
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nity: Cot u “tok. Start. 
pcB (OCB ON os = ..START_LINE_NO + 1), 
Cee Cope Q "AO. Orors 
.WORK~NUM_LINES) ; 
'¢ 
0 : Set cursor position to start of first Line that was ‘deleted’. 
741 : 
742 DCB CDCB_W_CURSOR_ROW) = ..START_LINE_NO; 
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4 DCB (DCB_W_CURS =fRtd = 1; 
. DCB COCB-V-FULL) = 0; mark that display is not ful 


te ! there is at least 1 Line available 
| |e if this change should be reflected on the screen right away. 
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, RETURN (SMGSSCHECK_FOR_OUTPUT_DCB “sete Saape “Ln, 
g ‘ ~START_LINE-NO)); 
754 ; END; ! end of routine nenenite Loe 

000¢ 000 ENTRY SNGSDELETE LINE, Save R2,R3 F 

50 6c 02 as 00 $ugB3 #2 yin : 

01 1 000 CMPB oir At ; 

08 18 BLEQU 1$ : 

50 000000006 8F 20 iH MOVE #SMG$_WRONUMARG, RO : 

50 4 BC DO 00013 1$: MOVL DISPLAY_ID ; 

04 BC % AO 01 001 CMPL 6(RO), SbISPLAY. ID : 

0 if 001C BNEG : 

1 AO 9 Oo1g CMPB 8(RO), #17 : 

08 13 00 BEQL : 

50 000000006 &F v0 00 4 2$: ROVE #SMG$_INVDIS_ID, RO F 

5 04 BC v0 002C 3$: MOVL § @DISPLAY_ID, DCB : 

5 08 BC DO 000 MOVL asTART T_LINE’NO, R3 : 

53 62 10 06 FD 0054 CMPZV , #18, (0tB). : 

53 02 A2 10 00 FD 0 CMPZV #0, #16, 2(DCB), R3 : 

0 041 BGEQ 46=s«S$ : 

50 000000006 00 9E 0045 4$: ROVAB SMG$_INVROW, RO ; 

03 6C 93 004B 5$: CMPB ss (AP), #3 : 

1E 1F 0004 BLSSU ; 

oc ac OD 5 TSTL  12(AP) : 

51 oc Be 0d 00 SovE QNUM LINES. WORK : 

20 FF aids BF 9 MOVAB =) (WORK NA LINES) CRS, f : 

50 02 A2 1 FD 0 CMPZV weer ot (BB) : 

50 000000006 8 3 66 NOVAB piled RO : 

51 1 D0 $ 68: MOVL #1, WORK_NUM_LINES : 

0 D4 $: CLRL  ROW_NUM : 

4 11 0007 BRB : 

4C B240 94 0007 gs: CLRB = @76 (DCB) CROW_NUMJ : 

FB 50 1 F3 $: AOBLEQ WORK NUR_CINES, ROW_NUM, 8$ : 

1 Dd 0007D PUSHL WORK NUM_LINE : 

1 DD O007F SHL ff : 

7E 06 ag iC 81 MOVZUL §(DCB) (SP) ; 

50 02 Ad 3¢ 5 MOVZWL 2(DCB). RO : 


Ts 


Be Se Se Se Se Se Ge Se Se Se Se Se Fe Se Ge Se Fee Ge Se Se Fe Ge Se Se Ge Se Se Se Se Se Se Se ee SESH Se ee Se SH Se SSH Se HSH Se Be Oe Se ee Oe Be Se Se Be ee 


kK 13 
Ta6B =O SRCSDELETE CINE = Delete Lin nae 1e$p-198¢ 19:08:40 ESmant. °SneSsnaol scna682; 1 ee 


re 


50 ; 3 UBL2 R3, RO : 
C SHAB 1(RO) : 
7E MOVZ2WL 4(DCB), =(SP) : 0987 
PUSHR #*M<R2_R3> > 0985 
06 9 CALLS #7, SMGSSSCROLL_AREA : 
%¢ MOV RS, 40(DCB) F 
7 MOVW #1. 42(DCB) : 
A A 000A4 BICB2 #1. 52(DCB) : 
DD 0008 PUSHL R + 1007 
DD OOOAA PUSHL #24 > 1005 
5 DD OOOAC PUSHL C8 : 
000000006 00 FB OOAE CALLS #3, SMGSSCHECK_FOR_OUTPUT_DCB : 
04 RET + 1009 


; Routine Size: 182 bytes, Routine Base: _SMGSCODE + 0237 
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‘t CHANGE = Virtual otsolay me cornert b-Se0-1984 90: 16:38 AX-11 Oi fegeze V4.0-74 


ISPLAY_CHA SMGS$DI 
ae ha - SMGSER CRARS = Erase Characters splay -Sep-1 SMGRTL. SMGDISCHA.B52;1 


“vu 


$ 
A 
: 1011 1 ZSBTTL ‘SMGSERASE at - Erase Characters in Display’ 
3 101 1 GLOBAL ROUTINE SMGSERASE_CHARS ( 
3 101 1 DISPLAY_ID, 
3 rs 1014 1 NUM_CHARS, 
#e. 101 1 LINE_NO, 
‘ee te 
; rea 1018 1 I++ ‘ 
3 oe? : 1 : FUNCTIONAL DESCRIPTION: 
: 76 1 ii This routine erases characters in a display by replacing them 
3 re : ; with blanks. Remaining text is not moved over. 
: 770 1004 1: Erasing is Limited to the specified Line. If NUM_CHARS would 
3 @7i 1025 1! cause characters past the end of Line to be erased, it is ignored 
3 ae; ; $ : and only to the end of the Line is blanked. 
: 77% 8 § ii The internal display cursor position is set to the first free 
3 oe? 19 , : } position following the erase. 
; ot 19 1] t CALLING SEQUENCE: 
; 779 10 § :7 ret_status.wlc.v = SMGSERASE_CHARS (DISPLAY_ID.rl.r, 
: 780 1033 1! NUM_C orle 
: 781 19 5 1! LINE_NO.rl.r, 
3 ee : 33 ! COL_AO.rl.r) 
; , 1 1038 i FORMAL PARAMETERS: 
; A + 8 : DISPLAY_ID.rl.r Display id of desired virtual display. 
; rs 106 : NUM_CHARS.rl.r Number of characters to erase. 
; a 1944 ! LINE_NO.rl.r Address of Line number where erasing starts. 
; ia Hh ! COL_NO.rl.r Address of column number where erasing starts. 
: 79% 1948 1) IMPLICIT INPUTS: 
3s f% 1049 1! 
3 re 1939 : NONE 
; 198 53 | IMPLICIT OUTPUTS: 
: 1 2 1/ NONE 
; Bf 1 23 1 i 
; § 1987 : : COMPLETION STATUS: 
: Be ' 8 } SS$_NORMAL Normal successful completion 
; 1060 | i SIDE EFFECTS: 
: 1 3 13 NONE 
Ro BY 
: af 5 BEGIN 
: 18 1 89 LOCAL 


"13 | 
TaD SLAY CHA SOOSPRASE CRAG © Eran’ Chacactersetn Disntage® Weckepotane Seiassee | FAMGAT Obhegsze veeOs 78s. se # 


DCB : REF SDCB_DECL, ! Addr of virtual display 
' control block. 


454 COL ! destination column number 
START_ INDEX ; Story ne Linear index into buffers 
WORK_RUM_CHARS; i working number of characters 


SSMGSVALIDATE_ARGCOUNT (4, 4); 


SSMGSGET_DCB ( .DISPLAY_ID, DCB); Get address of virtual 


display control block. 


1+ 
' Validity check the parameters. Don't try to erase more characters 
H than are on the Line. 

SSMGSVALIDATE_ROW_COL ( ..LINE_NO, ..COL_NO); 


WORK_NUM_CHARS = ..NUM_CHARS; 
EST-COL~= ..CO 


COOOOo NINN 
APU SOOO 


D L_NO + ;.NUM CHARS = 1; 
IF .BEST_COL GTR~.0cB CdCB_@_NO_COLS 


OSoOoooooooo 


9 tre rrr 
- Sos ery ee eee a yo Ne eee 
-—OoOow VIFWN "OVO ONC VE WH “CO OO~nousr 


5 1 

3 1 

3 1 

; 1 

3 1 

3 1 

3 1 

3 1 

3 1 

3 1 

3 1 

3 1 

5 1 

3 1 

3 1 

3 1 

3 1 

3 1 

3 1 

; 1088 

3 ! 9 WORK_NUM_CHARS = .DCB CDCB_W_NO_COLS] = ..COL_NO + 1; 

; 1091 2 !4 

3 1 35 ! Put blanks in the text buffer, the default attribute byte into the 
3 109 ! attribute buffer, and the default character set byte into the character 
5 1094 ! buffer. 

3 1095 t= 

; ri} 198 

: B43 199 START_INDEX = SSMGSLINEAR (..LINE_NO, ..COL_NO); 

H 5 1098 SSMGSBLANK_FILL_DCB (.WORK_NUM_CHARS, .START_INDEX); 

: re 113) '¢ 

; 848 11 § ! Virtual display buffers have been erased. Init cursor to first 
3 9 110 ! free position. 

; 850 1104 !- 

: 851 1105 

3 25 11 DCB CDCB_W_CURSOR_ROW] = ..!' "NE_NO; 

: 85 110 DCB DEB -W CURSOR COL = ..cdi_NO; 

3 854 1198 DCB CDCB_V_FULLIJ = 0; ! turn off scrolling 

; 855 1109 

3 2$ 1110 '¢ / 

; 85 1111 ! Call the output routine to see if this change in the virtual display 
3 38 1116 should be reflected on the screen immediately. 

: 1114 

3 1 1115 RETURN (SMGSSCHECK_FOR_OUTPUT_DCB (.DCB 

: é 1116 SMG$C ERASE CHARS, 

3 1118 END; ! End Of routine SMGSERASE_CHARS 


OFFC 00000 -ENTRY SMGSERASE_CHARS, Save R2,R3,R4,R5,R6,R7,R8,-; 1012 


un 
42 
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6E 
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50 


57 
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SMGS$D 
SMGSE 


02 


06 


2E 


30 


ASE. 


A6 
A6 
A6 
50 
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A6é 
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Soon 
50 000000006 68F 


50 4 8 

06 BC 3 
11 44 =A 

50 000000006 F 

56 ge BC 

6E C 

0 : 

50 000000006 6&F 

5A 10 8 
10 4 

0 

50 000000006 8F 
Eee, 
3 FF AOGA 
10 00 

0B 

2p 06 A6 

0 5A 

5? 01 AO 

oF 01 

1 06 A6 

30 51 
58 FF AA4SO 
50 10 A6 

38 14 OA 
i! i 
684 
6€ “3 

6B4 

5 
r § 
6849 

zh A6 Sh 
A A6 A 
4 A6 yh 
5 
000000006 00 a8 


OO LOS M10 £000 00 fF Ow" O 


pmb + + 4 > omits 4 4 —m 9900 - 0-9 900 on 


DOM OOW 
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-- Changes 


Ooo 
SOoooooooooo 


OOOCoCooo 


oO 
Ssssssss 
P —_ > > 


jeflelelelelolq) 
C909 09 SI NINA AAO MII 


PUTIN S OWNS NID PWD OM FO DVD Pw CO DON > 


os 
ad 
oe 


wn 
own 
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6$: 
7$: 


co 
Sed 


N13 
1eSep-1986 $8:08:00 


AX-11 Bi fegese 13.007 86 
SMGRTL.SRCJSMGDISCHA.B52;1 


R9,R10,R11 

a 

(AP), #4 
#SMG$_WRONUMARG, RO 


DISPLAY_ID, RO 
(RO), SDISPLAY_ID 


(RO), #17 
#SMGS_INVDIS_ID, RO 


@DISPLAY_ID, DCB 
aL INE_NO, (§p) 


4 

#0, #16, 2(DCB), (SP) 

WSMGS_INVROW, RO 

acOL_NO, R10 

#0, #16, 6(DCB), R10 

#SMGS$_INVCOL, RO 

@NUM_CHARS, RO 

RO, QORK_NUM_CHARS 

-1(RO)CRT0J, DEST COL 

#0, #16, 6(6CB), BEST_coL 

6(DCB), RO 

WORK_NUM_CHARS 

) {~ 

Ri, RO 

-1(R10)CROJ, START_INDEX 
T_BUF 


UF 
27 WORK _NUM_CHARS, - 
NDE) ETEXT Bur) 

, 46(DCB) 

NDEX) CATTR_BUF J 


Oo2z-B22--200 
WOonmO——N"KVVOe>»«k 


#3, SMGSSCHECK_FOR_OUTPUT_DCB 


“WORK_NUM_CHARS, - 


WORK_NUM_CHARS, - 
BUF} 
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1083 


; 1085 
; 1086 
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sntp uat Display =~ Changes 15-Sep-1964 00:16:38 8 


1 Liss-32 V4.0-7 
SMGSERASE_DISPLAY = Erase Display 14-Sep-1984 SMGRTL. SRC} 


~ 4g 
SMGDISCHA.B32;1 


— 


XSBITL "SMGSERASE DISPLAY = Erase Display’ 
GLOBAL ROUTINE SMGSERASE_DISPLAY ( 


69 DISPLAY_ID, 

70 START_LINE_NO, 
START-COL_NO, 
END_LINE_fO, 
END. OL_NO 


'e4¢ 


i FUNCTIONAL DESCRIPTION: 


This routine causes the specified display to be erased from the 
oh Be, start position to the specified end position. If omitted, 


end ergenng. If omitted, END_COL_NO is also 
fr) 


Be Se Se Oe Oe Se Be Oe Oe Be BH Oe Oe Be FH Se Se Be Se BH Se Se Oe Be BF Se FH Se Be Oe Oe Os Oe Se FH SESH Oe Oe OH Oe Oe Oe Oe Se SESE SES SH Se Be Se Se eeeee 
oo 
~o 
“ 
ee ed ed ad od dd dd dd dd 
ee ee me ee ee a ed aed od = wd = 6d 2 


' 
1! 
880 ! e start position defaults to (1,1). If the end position is omitted, 
881 : it defaults to the last character poets en in the display. Thus the 
Hy } entire display is erased if only the display_id is passed. 
884 i The internal display cursor position is set to the first free 
HH ; position (1,1) following the erase. 
887 4 ; CALLING SEQUENCE: 
889 4 i ret_status.wlc.v = SMGSERASE_DISPLAY (DISPLAY_ID.rl.r 
890 4 ! C,START_LINE_NO.rl.r, 
891 4 i START COL NOvrl.rd 
89 4 ' -END-LINE_NO.rl.r, 
89 4 ! END_COL_NOvrl.rJ) 
894 4 ! 
598 rs FORMAL PARAMETERS: 
897 3 DISPLAY_ID.rl.r Display id of the des‘red virtual display. 
899 5 i START_LINE_NO.rl.r Optional. Address of Line number at which to 
900 5 : start erasing. If omitted, START_COL_NO will be 
901 5 ! ignored as well and whole display wilT be 
308 : erased. 
904 5 i START_COL_NO.rl.r Optional. Address of Column number at which 
905 5 : to start erasing. If omitted, START_LINE_NO 
906 5 ! will be ignored as well and entire display will 
bet ? } be erased. 
909 6 END_LINE_NO.rl.r Optional, Address of Line number at which to 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 


SARA SSS SFO S SSNS FI 5 000 NON WN 2O DOO MO LIN ODOo Orne 
a ee ca ee ee ed ee ea ee ee ee ce ee ee ee th ene ec ee ae oe ce ce ee ee ee ee ee et ee ce ee ee ec ee ee ee ee ee en el eh el el en cca cel el 


910 

ae 2 ignored an the end of the display is erased. 
31 6 END_COL_NO.rl.r Optional, Address of column number at which to 
914 6 end orgstng. If omitted, END_LINE_NO is also 

a 6 ignored and to the end of the display is erased. 
319 3 IMPLICIT INPUTS: 

918 7 

919 7 NONE 

920 7 

921 7 IMPLICIT OUTPUTS: 

9 § 7 

+) 7 NONE 


SPER ISPLAT_CHA $7 SMGSDISPLAY_CHANGE - virwual Display -- Changes 1B-Sep-19 4 99: 4: i AX-11 ss-32 V4.0 Page (3 


-m 
t 


SMGSERASE_DISPLAY = Erase Display 14-Sep-1984 SMGRT L°§ CISMGDISCHA. yf 2:1 
; 924 1177 1! ; 
3 eo 1108 1 | COMPLETION STATUS: : 
Ss... 8 1179 1: . 
g 2 1389 \ SS$_NORMAL Normal successful completion ; 
: 929 1182 1 | SIDE EFFECTS: ; 
; 930 11 g 1 i : 
; 931 1184 1: NONE : 
3 ¥ ¢ 1185 1 i-- ‘ 
; 9 1186 1 ; 
; 934 1187 BEGIN : 
: 832 Bt : 
> 936 1189 LOCAL : 
; 937 1190 DCB : REF $DCB_DECL, ! Addr of virtual display . 
; 938 1191 ' control block. ; 
; oy 1136 LINE, ! temp row : 
; 940 119 COL, ' temp column : 
: 941 1194 END_ROW, ' temp end a : 
; ag 1195 END- COLUMN, ' temp end col ‘ 
: 94 1196 START_INDEX, : starting Linear index into buffers ; 
> 944 1197 END_INDEX, ! ending linear index into buffers ; 
; oF 1138 NUM_ CHARS; ! number of characters to put into buffers ; 
; 947 1300 2 ILTIN : 
> 948 1201 ACTUAL COUNT : 
> 949 1208 NULLPARAME TER; ; 
: 950 1203 2 ; 
3 9) 1204 2 LITERA : 
3 326 1205 2 K AS TART LINE_ARG = 2, ! argument number of start_line_no ; 
; 95 1206 § K-END_LINE_ARG = 4, ! argument number of end_line_no : 
; 954 1207 KTEND_ “Cor ARG = 5;  ! argument number of end_col_iio ; 
; 955 1208 2 : 
; 956 344 § '¢ : 
; 957 1210 i Validity check the number of parameters. : 
; 958 1211 2 i- : 
: 959 isi¢ 2 : 
; oer \si7 2 SSMGSVALIDATE_ARGCOUNT (1, 5); ° 
: 306 1215 SSMGSGET_DCB ( .DISPLAY_ID, DCB); Get address of virtual ; 
3 oor isi¢ ! display control block. : 
:; 965 1218 "calculate the Linear start index, based on whether a cursor position : 
: 966 1219 ! was specified. ‘ 
meat : 
; : 
; 969 1 § IF ACTUALCOUNT () LSS ator ice LINE_ARG OR ' Quick check ; 
: 970 1 LLPARAMETER (START_LINE NO) OR ! More elaborate checks 3 
; 971 1224 NULLPARAMETER (START~COL_NO) ; 
; 97 1225 ! default start position : 
; 97 1 $ 3th; : 
; 974 1 TART_INDEX = 0; ‘ 
: 975 1228 LINE = 1; : 
; or 1 COL = 1; ‘ 
3; WT 12350 END . : 
; 978 1231 ELSE ' use specified position 3 
> 979 1238 BEGIN | : 
; 980 1 SSMGSVALIDATE_ROW_COL ( ..START_LINE_NO, ..START_COL_NO); | : 
| 


- 


14 
SMGSDISPLAY_CHA SMGSDISPLAY_CHANGE - Virtual Display -= Changes 18-50 =1984 00:16:3 AX=11 Bliss-32 V4.0-74 P 
meee SMGSERASE_DISPLAY - Erase Bisoley . a =30071 38% 90: 8:28 SMGRTL. neisacolscua 62:1 te 8 | 
981 4 START_INDEX = SSMGSLINEAR (..START_LINE_NO, ..START_COL_NO); | | 
98 LINE = ..START_LI ; | 
98 COL = ..START_COL_NO; 
aee END; | H 
98 IF ACTUALCOUNT() GEQ K_END_LINE_ARG AND ! Last ist | 
3B9 NOT NULLPARAMETER (END“LINE NO) ~ mi oes Oe ae eS 
+4 WOT MULLPARARETER (END COL_NO) 
990 BEGIN t use specified end position 
991 SSMGSVALIDATE ROW COL (..END.LI E_NO, ..END_COL_NO); 
993 END-COLUMN = ..END_COL_NO; 
995 ! use default end iti 
996 BEGIN u u eng pos 10oNn 
997 END_ROW = .DCB CDCB_W_NO_ROWS): 
998 END~ COLUMN = .DCB CBCB_W7NO_COLS); 


ooo 
S 


END_INDEX = SSMGSLINEAR (.END_ROW, .END_COLUMN); 


1+ 
! Reset the Line characteristics in case the Line was previously 
double high or wide. 


S3333S2 


ee eee ee eee 


LINE_CHAR : VECTOR C,BYTE); 
INCR ROW-NUM FROM .LINE TO (.END_ROW - .LINE) DO 
ce LINE-CHAR C.ROW_NUM] = 0: 


PAEAEARAAPAAA AEN SFB 
MEWN 90 OONOULSWN 0 ODNOAOUE WN — CO ODNOULS WN OOONO NEW OOONOUM 


t+ 
! Put blanks in the text buffer, the default attribute byte into the 

: pee soute buffer, and the default character set byte into the character 
! buffer. 


NUM_CHARS = .END_INDEX = .START_INDEX + 1; 
SSMGSBLANK_FILL_DCB (.NUM_CHARS, .START_INDEX); 


lolololelelojlolololejiejelelelelolelelelolo) 
PIPIMIPINININD 2 2 OO a OO 
CONOULSWN OO OONOUSWN—O0O~ 


MOM 


'¢ 


C909 08 SINISE 


PIPINPOPININIPIPDPYPDNIPNIPYAININININPININYININININININININPINPINIPINPI PU NINPIPIPUNPIPIPIPIPUNINONPIPPPToNy 


DCB COCB_V_FULL] = 0; flag that some Lines are free 


re Pee Pee Ed el ed i ee ed ek ee de ee uy 
t 


a ee ee ee ee SS S| 


RIP IPIPIPIMPINPYPIMIAIMINNININIPININININI ANN ANIAIAPIPIPIPIPUNINPINIPINIWWNI. NII WN NWIAIPIPIPONINIU WI 


me ee ee me ee ee ed nd aed ed od 2d od 


Oe i Virtual display buffers have been erased. Init the cursor to the first 
031 H free position. 

033 DCB PoCe wu CURSOR ROW = .LINE; 

O35 DCB COCB_W_CURSOR_COL) = .COL; 

a 


horororory 
oo 


BEGIN 
BIND 
wap LINEACHAR = .DCB CDCB_ALLINE CHAR]; 
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cw SMGSERASE DISPLAY = Erase Bisplay . 7 10230071984 13:b8:26 SMGRTL. RCISMGDISCHA.B 231 : zl 


: 1 1291 ‘+ 

3 1 HS 1 3 ' Call the output routine to see if phis nonge in the virtual display 
: ; ? : 37 } should be reflected on the screen immediately. 

: 4 1295 2. 

3 1948 1 RETURN (SMGSSCHECK_FOR_OUTPUT_DCB (.0CB 

> 1064 129 SMG$C_ERASE_DISPLAY)); 

> 1045 1298 END; ! End of routine SMGSERASE_DISPLAY 


OFFC 00000 ENTRY SNGSERASE DISPLAY, Save R2,R3,R4,R5,R6,R7,— ; 1121 ; 
RB,RO,RIO-R11 : : 
5E 04 C2 000 SUBL2 #4, S : ; 
50 6¢ gi § 000 SUBB3 «s#'1, (AP), DIFF + 1213 ; 
04 0 1 00009 CMPB)OéOFF, #4 : ; 
0 1B 0000C¢ BLEQU 1$ : : 
50 000000006 &F BO O00E ov #SMGS$_WRONUMARG, RO : : 
50 04 Bc DO $b018 1$: MOVL  @DISPLAY_ID, RO + 1215 3 
04 BC 8 AD DI 90014 CMPL  36(RO), SDISPLAY_ID ; : 
11 44 AO i 0001 CMPB 8(RO), #17 : : 
08 13 00025 BEQL : ; 
50 000000006 &F v6 00 q 2s: MOVL #SMG$_INVDIS_ID, RO : ; 
58 04 BC DO O002F 3s: MOVL § @DISPLAY_ID, DCB ; ; 
02 6c 91 00 3 CMPB AP), #2 : 1222 ; 
OF 1F 000 BLSSU 4 : : 
08 ac D5 990 TSTL  8(AP) : 1223 ; 
OA 13 00038 BEQL 46 «4$ : : 
03 6C 91 0003p CMPBs«C AP), #3 : 1224 : 
05 1F 00040 BLSSU 4$ ; ; 
oc ac b3 O48 TSTL  12¢AP) ; : 
A 12 0004 BNEQ 5$ ; : 
B D4 0047 4$: CLRL  START_INDEX : 1227 ; 
57 01 0 049 MOVL #1, LINE : 1228 3 
6E 01 DO 0004C MOVL #1. COL + 1229 : 
42. 11 0004F BRB : 1 : : 
52 08 Be 00 $21 5$: sot} @START_LINE_NO, R2 3 1 : 
52 02 as 10 6 F ; CMPZ7V #0, #16, 2(DCB), R2 : : 
D BGEQ 7 ; : 
50 000000006 &F po F 6$: MOV #SMGS_INVROW, RO ; 3 
51 0c Bc 09 $6 7$: MOVL § @START_COL_NO, R1 : : 
6B BLEQ : 3 
51 06 as 10 : 8 CAPLV #0, #16, 6(DCB), R1 : : 
50 000000006 8F {3 8$: MOVL #SMGS$_INVCOL, RO | ; 
FF A2 9E 00070 9S: MOVAB -1(R2), RO > 1234 : 
06 AB 3¢ 1 MOVZ2WL 6(DCB), R ; : 
5 ¢ MULL2 R3, R : : 
8 FF A140 9E MOVAB -1(R1)CROJ, START_INDEX ; | : 
J 


SAGSDISPLAY. CHA 


50 


51 


56 
56 


56 


; Routine Size: 


SMGSDISPLAY_CHANGE - Virtua 


SMGSERASE_DISPLAY = Erase Displ 


$7 
86 


02 AB 10 
50 000 


06 As 10 
50 000 


PATI 
O00: WMO 


F8 


ovum vwNMu 
moo oO— 


2 «AB 6E 


30 AB 6E 
of 

A A 

4 A 

000000006 00 


321 bytes, Routine Base: 


Display -- Changes 1 
play 1 


7 
6 9 
40 iF 
10 AC OD 9 
38 4 3 
5 1 Bi 
14 AC D A 
mY A 
10 Dd A 
1 AB 
8 i 0 ; 
000006 8F ? 4; 
14 BC OD 65 
BT 
Sig Sie 
000006 8F 00 000C 
04 0000 
51 00 0000 
08 11 0000 
02. A HS 00D 
06 A € 0000 
FF AQ YE QOOE 
06 48 C QO0E4 
53 C4 OQO0OE8 
FF A241 5 QOE 
57 Ce QOOF 
FF A? YE QOOF 
04 11 OO0F 
4C B841 94 O00F9 
50 F3 OOOFD 
5B C2 00101 
56 D6 001 
10 AB 4 01 
14 A8 7D QO10A 
06 2C 0010 
6840 011 
08 2c 0011 
684 118 
A if 11D 
8 11F 
0 2C 00121 
6B4A 127 
is 
i Sie 
DD 001 ; 
BH aig 
Ya 


_-SMGSCODE + 0384 


14 
g-Seo-1984 0:16 


10$: 


19$: 


AX-11 Bliss-32 V4.0-74 
SMGRTL.SRCJSMGDISCHA.B52;1 


> 
wv 
~ 


> 
wv 
~ 


D_LINE_NO, RO 
#16, 2(DCB), RO 
#SMG$_INVROW, RO 
@END_COL_NO, R1 

#0, #16, 6(DCB), R1 
#SMG$_INVCOL, RO 

R1, END_COLUMN 


, END_ROW 
END_COLUMN 


R3 


—MNNOP IO P — FO 


2 @ nS 2 DD OPW 
ro 
o~ PEARAA~HVOH-OD s 

. 

bod 

wa 


20(DCB), ATTR_BUF 


0, (SBS #32; NUM_CHARS, (START_INDEX)= 

#0, (SP), 46(DCB), NUM_CHARS, (START_INDEX)- 
CATTR BUF) 

CHAR. BUF 

#0, (SP), 48(DCB), NUM_CHARS, (START_INDEX)~ 
CCHAR BUF J 

LINE ,~40(DCB) 

COL. 42(DCB) 

#1, °52(DCB) 

wie 


3 


Sete Se Se Se Se Be Se Se Be Se Be Se Be Be Se Be Be Be Be Be Be Be Se Se Ge Se Se Fe Se Se Ge Fs Se Ge Se Fe Se Ge Be Be Be 


8 ad od ed ed 
Mra & 
*+-o0o 


1267 


1268 
1277 | 
1279 


TS 


sree SPLAT. CHA SMGSDISP 


: 1046 
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—b 


SBTTL *SMGSERASE EINE - Erase Line from Display’ 
GSERASE_LINE ( 
DISPLAY_ID, 
INE _NO 


4‘ 
GLOBAL ROUTINE SM 


This routine causes ae Steph er to be erased from the specified 
e 


t 
position to the end of 


ODONOUVLSW—OO0@ 


3 3 1 

3 7 1 1 

4 135 

: 1 1 1 CO : 

31 1 1 )s fo 

3 7 1 1 !¢¢ 

3 7 1 1 ! FUNCTIONAL DESCRIPTION: 

a 1309 1 

+ 105 1310 1: ine. If the position is not 

: ; 5 : 1 : specified, the current cursor position on the screen is assumed. 
: 1061 1 18 1! The internal hb ay cursor position is set to the first free 

3 1006 : 13 : } position following the erase. 

; 1064 1316 | i CALLING SEQUENCE: 

; 1066 1 18 1! ret_status.wic.v = SMGSERASE_LINE (DISPLAY ID.rl.r, 

: 106 1319 1! LINE _NO.rl.r, 

3 1368 : ? ’ COL_NO.rl.rJ) 

; 1070 1308 | i FORMAL PARAMETERS: 

: 107¢ 4 DISPLAY_ID.rl.r Display id of desired virtual display. 

3 1074 1 $ 1! LINE_NO.rl.r Optional. Address of Line number where erasing 
3; 1075 1 1} starts. If this ek pene is omitted, COL_NO is 
3 1o7e 1 8 1! ignored as well, and current position wilT be 
1078 1380 1 | nates 

: 1079 1331 1: COL_NO.rl.r Optional. Address of column number where 

: 1080 1 ¢ a otee ee starts. If this argument is omitted, 

; 1081 1 7 LINE_NO is ignored as well, and current position 
3 1086 : : ; } willbe used. 

: ie s | enc tee 

71 1 1} 

3% 1340 1°! IMPLICIT OUTPUTS: 

:; 108 1341 1! 

ite a om 

; 1982 ! $ 1 . COMPLETION STATUS: 

: 109% 1 g 1 SS$_NORMAL Normal successful completion 

:1 1 1 | SIDE EFFECTS: 

ty 1386 1 i NONE 

; 1500 : 1 ie 

; 1101 38 BEGIN | 
; 1103 1355 LOCAL 

311 1356 DCB : REF $DCB_DECL, ! Addr of virtual display | 


14 
SMGSDISPLAY_CHA SMGSDISPLAY_CHANGE - Virtual Display <= Changes 1b§ “1986 00:16:3 AX-11 Bliss-32 V6.0-76 
engte SMESERASE LINE ~ Erase Line from Display nm jackeneione Se0sses — Pament eae Ssmep seca e642. 


5 7 ' control block. 
LINE, ! temp Line 
COL ' temp column 
START INDEX, ' start ng Linear index into buffers 
END_IRDEX, ! ending linear index into buffers 
NUM_CHARS; ! number of characters to put into buffers 
ILTIN 
65 ACTUALCOUNT 
NULLPARAME TER; 


1+ 
Validity check the number of parameters. 


SSMGSVALIDATE_ARGCGUNT (1, 3); 


SSMGSGET_DCB ( .DISPLAY_ID, DCB); ! Get address of virtual 
! display control block. 


SN NNN NNO OO 


BONO WN—OCo 


'¢ 
! Calculate the Linear start index, based on whether a cursor position 
was specified. 


IF NULLPARAMETER (LINE_NO) OR 
NULLPARAMETER (COL_NO) 
THEN ! default start position 


N 
LINE = .0CB CDOCB_W_ CURSOR ROW]; 
CB CbcB_Q@_TursOR_COLJ; 


! use specified position 


BEGIN 
SSMGSVALIDATE_ROW_COL ( ..LINE_NO, ..COL_NO); 
LINE = ..LINE_NO; 

got = ..COL_NO; 


— wd Sd od dd dd dd dD 
BSS AEUNS SSS VSO ROS Sc ~wns usr 


1+ 

! Put blanks in the text buffer, the default attribute byte into the 

pete Gute buffer, and the default character set byte into the character 
' buffer. 


SSFSPESSESERS ESE eS 
o 
oO 
- 
" 
oO: 


FW OOOO UEWN) OO 
~o 
oc 


Be Se Se Ge Be Be Ge Be Ge Se Ge Fe Fe Ss Ge Ge Fe Se Ge Ge Ge Se Se Fe Ge Se Fe Ge Ge Ge Se Se Ge Ge Se Fe Se ee Ge Fe Se Se Ge Se Se Se Se Se Se Se ee Se ee Se betes 
ee ee ee el a a ee a a a a a ee a ee ed ee 
PUPA PTIAAT ES BB BPP E EE 


ee ee ee ee a ee ec ee ec ee DD a ed ed ed 
ee em Nk ed dd os dd = od 


280 !- 

4 
rt) START_INDEX = SSMGSLINEAR (.LINE, 560) 
4 END_IRDEX = SSMGSLINEAR (.LINE, .0CB ptB_W_NO_COLS)); 
4 ‘ NUM~CHARS = .END_INDEX = .START_INDEX + 1; 

¢ 49 SSMGSBLANK_FILL_DCB (.NUM_CHARS, .START_INDEX); 

4 '¢ 

$ 109 ! Reset the Line characteristics in case the Line was previously 

3 $19 double high or wide. 

60 41 ; 

61 a1 BEGIN 


ISPLAY_CHA SMGSDISPLAY_CHANGE - vies ual Display -- Changes 16-Sep-1984 00:16:3 AX-11 Bliss-32 V4.0 P Sm 
Met SMGSERAS £ WLINE - rase ( ne trom Display ° 16- sen-1984 90:58:28 SMGRTL.SRC SMGDISCHA. ys 2:1 a0e 453 1- 
711 141 BIND 
; 1188 1418 me LINE_CHAR = .0CB CDCB_A_LINE_CHAR]; 
: 1165 1219 LINE_CHAR : VECTOR f BYTE); 
; 1166 141 IF_.NUM_CHARS EQL .DCB COCB_W_NO_COLS) 
3; 116 141 THEN 
3 1108 1 : ne LINE_CHAR C.LINEJ = 0; 
; 117 14 é " 
s 117 14 '+ 
3 117 1426 i Virtual display buffers have been erased. Init cursor to first 
; 1% 12 : te free position. 
: 1175 14 
3 1178 14 3 ocB Deb W~ CURSOR ROW) = LINE; 
: 117 14 DCB DCB“W~ CURSOR” COL = .COL; 
3 11% 1430 DCB COCB_V_FULLJ = 0; ! turn off scrolling 
s 11 1431 
: 1180 14 ; ‘+ 
3; 1181 14 i Call the output routine to see if this Eon in the virtual display 
3 1 ¢ 1? : a should be reflected on the screen immediately. 
11 14 
3; 1185 14 $ RETURN (SMGSSCHECK_FOR_OUTPUT_DCB (.0CB 
; 1186 1438 "SMG$C_ERASE_LINE, 
; 118 1439 ,LINEY); 
: 1188 1440 1 END; ' End of routine SMGSERASE_LINE 
OFFC 00000 ENTRY SRGSERASE -LINE. Save R2,R3,R4,R5,R6,R7,R8,- ; 1301 
5E 08 | #8, 3 
50 6C 01 SUBB #1, (AP), DIFF : 1372 
02 50 CMPB) sé‘, #2 ; 
gs 18 BLEQU 1$ 3 
50 00000000G 8F ? nore #SMG$_WRONUMARG, RO ; 
50 ge BC D 16 1$: MOVL ISPLAY_ID 3: 1374 
04 BC 8 Ad : 1A CPL 6<RO), SDISPLAY. 1D : 
11 44 AS 7 C (RO), #17 é 
8 ; BEQL 3 
50 00000000G_ 8F ? : 28: pov #SMGS$_INVDIS_ID, RO 3 
38 06 BC ° 3$: MOVL SOI SPLAT. 1D, DCB 3 
0 ge CMPB AP), #27 ; 1383 
fF F BLSSU 3 
08 AC 9 TSTL BCAP : 
OA BEQL 4$ ; 
03 +3 9 CMPB (AP), 3 1384 
1f BLSSU 4 3 
0c AC 3 TSTL 12(AP) ; 
0 BNEQ 5 5 
56 28 OA C 4%: MOVZWL 40(DCB), LINE 3; 1387 


3; Routine Size: 


1189 


Re AMF SRSERASE 


51 02 
50 06 
57 

57 2€ 
57 30 


239 b 


1441 


SPLAY_CH - Virtual Display -- 
E LINE = ieee L ne trom Display 
046 AE 2A 4 
51 08 3 
AB 10 
50 000000006 8F 
50 oc 

’ . ; 
50 00000000G 8F 

56 2} 
04 af 0 
FF - 

35 06 A 

51 046 «OA Al 
6€ 3 $1 
0 FF AB4O 

9 6 

5 01 A 

50 10 A 

59 14 =A 

20 6E 00 
00 BE40 

A8 6E 00 
00 BE49 

5A 

09 

A8 6E 00 
00 BE4SA 

58 57 

04 

4C B846 

28 «AB 56 

e A8 04 AE 

4 AB 1 

6 

28 

00000000G 00 38 

ytes, Routine Base: _SMGSCODE + 
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5 
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Changes ite 


Sep-1 
~ep-1 


12$: 


8c 19:08:28 


AX-11 Bliss-32 V4.0- 
SMGRTL.SRCJSMGDISCHA. if 231 


43(DCB), COL 

10$ 

@LINE_NO, R1 

#0, #16, 2(DCB), RI 

#SMGS_INVROW, RO 
COL_NO, RO 

#0, #16, 6(DCB), RO 

#SMGS_INVCOL, RO 


OL, R1 
STA 7 a 
CROJ + END. INDEX 


0 

de 

r Nua HARS 
6), TEXT BUF 
B); A 

SP 


(SP), 48(DCB), 
U 

_CRARS, R11 

DCB) CLINEJ 

- 40(DCB) 

42(DCB) 

52(DCB) 


oo-xrrocCCeo- + 


mRz-Omaman-— 
xe 

Pa 

Zz 


2OC =r fae 


WO 0 in 


> Ow2z- FZ 


SMGSSCHECK_FOR_OUTPUT_DCB 


R~BUF 
H #325 NUM_CHARS, @START_INDEX- 
(SB) 46(0CB), NUM_CHARS, @START_INDEX- 


NUM_CHARS, @START_INDEX- 


Pe Se Se Se Se Ge Ge Fe Se Se Bs Se Se Ge Ge Se Se Se Ge Bs Se Be Be Ge Se Be Ge Se Se Ge Ge Se Fe Se Se Se Se Se Ge Se Se Se He Se 


De Oe Be BeBe Se Se FH Se Be Se Se Be Se Ge Se Se Se Se Se Se Ge Fe Fe Se Se Se Se Se Se FH Se Ge Ge Se HHH Se Se Se Se Se Se SHS SH Se Se Se Se Se Se Se Se Se oe 


Sh hd 


pe 
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M14 
- Display -- Changes 16-Sep-1984 00:16:3 X-11 Bliss-32 
mbL RT SPLAY CHA SHOSHORECCURSOR © Home corer to's torner poe t1 =3007 1382 99:08:25 YOMGRTL SRE SMGD 


V4.0-74 P jl 
ISCHA.B52;1 a9 439 


; 1442 1 ZSBTTL *SMGSHOME_ CURSOR = Home cursor to a corner position’ 2 
1183 1208 | GLOBAL ROUTINE SAGSHOME _CURSOR ( e 
: 11 g 1444 1 DISPLAY ID, 2 
711 Vacs | POSITION b 
Me id, " i 
; 1137 1448 i FUNCTIONAL DESCRIPTION: 3 
i ine moves the cursor to the corner row and column 2 4 
; 1193 1 ; : : of the specified virtual display according to position specified 2 
: 1201 1452 1 by the POSITION parameter. : 
:1 14 : 1! The caller does not need to know the dimensions of the 4 
: 1508 14oh 1 | virtual display. 2 
i] 08 1456 1 i CALLING SEQUENCE: | 
: 09 1438 1! ret_status.wic.v = SMGSHOME_CURSOR ( i 
> 1208 1459 1 | ISPLAY_ID.rl.r ie 
3 : % ee : H »POSITION.rl.rJ) : ! 
: 1211 146¢ | | FORMAL PARAMETERS: ; } 
; i ig 1464 i DISPLAY_ID.rl.r The display id of the desired virtual display. : ! 
; 1 is 146 1! POSITION.rl.r Optional. Position to move cursor to according . 4 
31 1 1269 i i to following code: } 
; 121 1468 1 | ; 

; PPER_LEFT Row 1 Column 1 (upper left-hand corner). : 

° } 13 1488 i i oe This is the default if argument is : 
: 1220 M47) 1 | omitted. : 
; 1221 14 i ; 

; FT OR Column 1 (Lower Left-hand corner). : 

4 i i 1478 i +S eRe This is a useful position for inputting : 
+ 1224 1475 1! into an upward scrolling virtual display 3 | 
4 i : 
; i : 1477 2 = SMGSC_UPPER_RIGHT Row 1 Column m (Upper right-hand corner) z 
; 25 4 } 3 = SMGSC_LOWER_RIGHT Row nm Column m (Lower right-hand corner) o 
:1 1481 1: toecereennnnnnenee a a | 
3 1231 1636 1! 10 1 
Be : : : 
ty 1485 1 | 4 3} 3 | 
+ 1235 14 1! drasitaineaiameuianitiiena + 1 
3 ' 12 : IMPLICIT INPUTS: : 
on er : 
3 1240 1491 1°! IMPLICIT OUTPUTS: el 
3 1241 1038 1! 2 
1508 egg | i _ 
; 1244 156 ' COMPLETION STATUS: 

: 1 SS$_NORMAL Normal successful completion ; 

: 1 “3 1298 1! SMGS_INVDIS_1D Invalid virtual display id. 


ISPLAY_CHA SmCSHORE CCU CHANGE = Virtual Display -- Changes 16-Sep-1 :3 AX-11 8B SS 
argeR SMG CURSOR = Home cursor te'8 torner ros t1 b-bep-1944 9: 8; i§ SMGRTL. Bt *saco se Ma B82: 31 Page 47) 
124 \ SMGSWRONUMARG Wrong number of arguments. 
SIDE EFFECTS: 
i 
' 


- 
—OoOw 


NEW 


SSMGSVALIDATE_ARGCOUNT (1, 2); 
SSMGSGET_DCB ( .DISPLAY_ID, DCB); Set pour of display control 
! bloc 
ROW = 1; ! Assume defaults 
COL = 1; 
ad NULLPARAMETER (POSITION) 
BEGIN ! User-specified 
IF ..POSITION LSS SMGS$C _UPPER_ bert OR 
a’ POSITION GTR SMG$C_LOWER_RIGHT 
RETURN (SMGS$_INVARG); 
CASE ..POSITION FROM SMGSC_UPPER_LEFT TO SMGS$SC_LOWER_RIGHT OF 
CSMG$C_UPPER_LEFT): 


CSMG$C_LOWER LEFTI: 
ROO = .DCB CDCB_ W_NO_ROWS); 


CSMG$C_UPPER RIGHT): 
Coc = .0CB CDCB_wW_NO_COLS); 


CSMG$C_LOWER_RIGHT): 


= .DCB CDCB_W_NO_ROWS); 
coL = .DCB CDCB"W"NO-COLS); 


CONAUE WN =O OONAUE WN (OO ONOULS WOO 


CINRANGE, OUTRANGE): 
RETURN SMG$_INVARG; 


TES; 

END; ! User-specified 
CB atte W_CURSOR_ROW ROW; 
DCB CDCB-W-CURSOR-COL = ‘COL: 


PUSVVI BS BS BB BB BE BE ANIA III AI RP PIPUNININIPUDYD SS OO SS Ss 


BVI SLB VIAL MOL OOS TAM PU HO OBNOUE UN OD WA PUM OOO GUN UND 


Be Se Se Se Se Se Ge He Se Se Se Se Ge Se Se Ge Ge Fe Ge Ge Se Se Ge Se Ge Fe Ge Se Se Ge Ge Se Ge Se Ge Se Ge Ge Se Fe Se GH Se Se Se Se Se Se Se Ge Se Se Se Ge Se ee ees 
ee ee ee ee re ee ee ee eS SS» 
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1 
1 
1 
1 
1 
NULLPARAMETER: 
LOCAL 
ROW, ! Working row number 
COL, ! Working col number 
DCB : REF SDCB_DECL; ! Addr of display control block 
4 
4 
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SAEED ISPLAY CHA SMGSDISPLAY CHANGE = Virtual Display -=- Changes 


: 
1b-Sep-1986 00:16:3 AX-11 Bliss-32 V4.0-74 

SMGSHOME CURSOR = Home Corsor tora corner aoety 1uckepe one $8 :08;28 tS smep! Page 478 
1 


ep- SMGRTIL.SRCJSMGDISCHA.B52; 1 (11) 


; Routine Size: 136 bytes, Routine Base: _SMGSCODE + 05E4 


: } 05 } DCB COCB_V_FULL] = 0; ! turn off scrolling : 
:1 $$ 1558 RETURN (SMGSSCHECK_FOR_OUTPUT_DCB (.0CB : 
> 1308 1559 SMG$C_HOME_CURSOR)); : 
3 1309 1560 END; ! End of routine SAGSHOME_CURSOR : 
001¢ 00000 .ENTRY SMGSHOME_CURSOR, Save R2,R3,R4 : 1443 : 

50 C 91 es bo8 SUBB3 #1, (AP); DIFF s 1514) 3 

1 0 91 000 CMPB DIFF, #1 : ; 

08 1B 0000 BLEQU 1 : : 

50 000000006 8F p0 9000 VL #SMG$_WRONUMARG, RO : : 

50 0 BC DO 00013 1$: MOVL  @DISPLAY_ID, RO + 1516 : 

04 BC 8 AO D1 0001 CMPL  56(RO), SDISPLAY_ID ; : 

06 12 0001C BNEQ : : 

11 44 AO 91 OO01g CMPB B(RO), #17 : : 

08 13 000 BEQL : ; 

50 000000006 8F p6 00 4 2$: MOVL #SMG$_INVDIS_ID, RO ; : 

50 06 BC DO 0002C 3$: MOVL § @DISPLAY_ID, DCB : : 

54 ot DO 900 9 MOVL #1, ROW > 1519 : 

53 1 DO 0003 MOVL #1. COL + 1520 ; 

02 $¢ 91 00036 CMPB sé AP), «#2 + 1522 ; 

1F 00039 BLSSU 9S ; : 

08 AC b3 0038 TSTL  BC(AP) : : 

30 13 000 : BEQL «so 9 : ; 

52 08 BC dO 0004 MOVL  @POSITION, R2 > 1525 : 

11. (19 90064 BLSS 6-«SS$ : : 

03 52 D1 00046 CMPL = «aR, 3 : 1526 : 

o¢ 14 00049 BGTR 5$ : ; 

03 09 2 CF 00048 CASEL R2, #0, #3 : 1530 ; 

0019 001D 001 0021 OO04F 4$ wo 9$-48,~ ; ; 
ai : : 

51 000000006 99 3 0057 5$: MOVAB SMG$_INVARG, R1 > 1548 : 

50 1 ° $ ‘ move R1, RO ; : 

54 02 Ag ¢ 6$: mOVZUL (oc), ROW > 1536) : 

54 02 i C 7$: MOVZWL 2(DCB), ROW + 1543 : 

53 6 ao 3¢ ¢ $: MOVZWL 6(DCB). COL > 1544 : 

8 Ad 4 80 $: MOVW ROW, 4<D¢B) : 1554 : 

A Ad 3 8 074 MOVW COL, 42(DCB) : 1555 : 

4 Ad 1 BA 00078 BICB2 #1, 52(DCB) ; 1396 : 

DD 0007C¢ PUSHL #14 : 1558 : 

DD 0007 PUSHL bce : : 

000000006 00 0 CALLS #2, SMGS$SCHECK_FOR_OUTPUT_DCB ; ; 

04 0008 RET > 1560 : 


15 | 
ISPLAY_CHA SMGSDISPLAY_ CHANGE = Virtual Display -- Change 1$- Sep-1984 AX- - -0- | 
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MGSDISPLAY_CHA SMGSDISPLAY_ CHANGE = Virtual Display -- Changes 16-Sep-1984 00:16:3 AX-11 
mtd SMGSINSERT_CHARS = Insert Characters ° 12286871382 99:08:26 SMGRTL 
3 1 13 1 $¢ 1 XSBTTL ‘SMGSINSERT_CHARS = Insert Characters’ 

3; 131 1565 1 GLOBAL ROUTINE SMGSINSERT_CHARS ( 

: 1314 1564 1 DISPLAY_ID 

: 1315 1565 1 CHAR_STRING, 

: 1316 1 $6 1 ROW, 

3; 1317 139 1 COL 

; 1318 1568 1 RENDITION_SET 

; 1319 1569 1 RENDITION- COMPLEMENT, 

: 1320 1570 1 CHAR_SET 

: 1321 1571 1 )= 

: 1 ¢ 1572 1 !44 

H ! Z 130 i FUNCTIONAL DESCRIPTION: 

8 Iseo ble mee This routine inserts the specified character string at the 

3 : $8 1228 ! } row and column position specified. 

: 1328 1878 1! Characters guapt tee from CHAR_STRING are inserted into the 

3 1392 1579 1! specified display at the specified ROW and COL, shifting 

: 1339 1380 : subsequent characters on the Line to the right. 

3 1386 1286 1! SMGSINSERT_CHARS is a character-oriented operation - any 

: 133 1585 1! characters which do not fit on the current Line are thrown 

3 eee 1388 ! away. Wrapping is not allowed. 

; 1336 1586 1! The internal display cursor position is left at the character 
: 1337 1587 1! position following the last character written. 

; 1338 1588 1! 

; 1339 1589 1 ! CALLING SEQUENCE: 

; 1340 1590 1! 

; 1341 1591 1! ret_status.wic.v = SMGSINSERT_CHARS ( 

: 1346 1336 1! DISPLAY_ID.rl.r, 

: 134 1593 1! CHAR_STRING.rt.dx, 

3: 1345 1595 1! COL.rl.r 

> 1346 1396 1 i E RENDITION SET rl rd 

3 1347 1597 1! RENDITION COMPLEMENT. rl.rJ 

> 1348 1598 1! C,CHAR_SET.Fl.rJ) 

3 1363 1599 1! 

; 1350 1600 1 ! FORMAL PARAMETERS: 

3; 1351 1601 1! 

3 1338 1606 ! DISPLAY_ID.rl.r Display id of desired virtual display. 
3 : 23 1oRe : : CHAR_STRING.rt.dx Character string to be inserted 

3 1356 1608 1! ROW. rl.r Row position at which to start 

3; 135 1607 1! insertion. 

; 1358 1608 1! 

3; 1359 1609 1! COL.rl.r Column position at which to start 

3 1360 1919 } : insertion. 

:1 § 1ei¢ 1! RENDITION_SET.rl.r Each 1 bit attribute in this parameter 
3 1 1615 7! causes the corresponding attribute to 
3 1 1614 1! be set in the display. (See below for 
3 : 5 1912 : List of settable attributes.) 

3 1 1819 1! RENDITION_COMPLEMENT.rl.r 

3; 1368 1618 1! Each 1 bit attribute in this parameter 


3 
SMGDISCHA.B52;1 


} 


| 
- -11 Bliss-32 V4.0-7 Page 41) 
HANGE = Virtual Display -- Changes 16-50 Sep-1984 :3 AX-1 3} 
at acs ssee Sncee AeERtY ‘CHARS - Insert Characters ~3e07 1382 99: 8: i SMGRTL.SRCJSMGDISCHA. 5 2:1 | : 
ses the corregpenstn ecprveute to : 
: 1388 183 } i Se conelensnted in the disp ay (See | 
: i 1621 1 / below for List of RRs... le | 
: i i 16 : 1/ attributes.) | 
; 13) 12 1 i ified in both the ag en ET eraqeter : 
; : a ig ¢ i : Ay the, RENDIT TON, COMPLERENT FT pe He the appl cation is ; 
: 137 1606 1! RENDITION_SET followed by RENDITION complement. Using these two | 
: 1 8 16 = 1 arametersS together the cal ~ aan exercise os a pag and : 
: 1378 1608 1 | Tadesontent control over each attribute on ingle call. On an 
: 1379 16 § 1 attribute by attribute basis he can cause the fo lowing 
: 1 16 » i} cranstornet lens: 
i] ; 6 ; 1 i SET COMPLEMENT Action 
4 i 4 i i . nro, Attribute unchanged. : 
: 3 1635 1! 1 Attribute set to ‘‘on 
: labs 16 1: 0 1 Attribute oe to senaliceaal of : 
1389 1637} | current setting... 
: 1388 1638 1 i 1 1 Attribute set to "oft". : 
: 1389 1639 : 
: 1 3 1641 ! Attributes which can be manipulated in this manner are: 
; 139 ' 
: isplays characters blinking. 
: 1 1ee$ i Sncsn -BOLD displays pfoeretters in higher-than-normal 
; 1390 1603 1G aes SA on ae we in reverse video -- that is, 
: 1399 ~ 1825 1 bs, geome iets : opposite default rendition of the 
: i virtual di splay 
: 1338 1848 SMGSM _UNDERLINE ps pag characters underlined. 
ers i Optional. Character set to use. 
: 1401 193] : CHAR_SET.rl.r Ae Tee. 
; 1208 : 1! SMG$C_UNITED_KINGDOM 
: 108 ieee i SMGSC"ASCII Tdefault) 
1208 iee¢ 1 | SMG$C~SPEC_GRAPHICS 
: 1ebs ieee 1 | SMGSC~ALT_CHAR | 
; 1209 1889 i i SMG$C~ALT~GRAPHICS 
: 58 1 
: 1209 1839 1 ' IMPLICIT INPUTS: 
. a 
: 
: 1418 1888 i i IMPLICIT OUTPUTS: 
: 1a18 1665 1 | NONE 
: 1 1 
F 1447 1667 ! COMPLETION STATUS: 
ae i ful completion 
3 1419 1 1! SS$_NORMAL Normal Success Bhs 
: 12 ° 1670 i i gies jive ines wars bid a Bh eg outside virtual 
; 1 5 1898 SMG$_INVCOL invat td column specification -- outside virtual 
: i - splay. 
: 14 $ 1878 i SMG$_INVDIS_ID Invalid virtual display id. 


15 | 
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3; 14 $ 1976 . 7 SMG$_WRONUMARG Wrong number or acpynents, 

3 1¢ 19! : SMG$_INVARG Unrecognized rendition code. 

: 14 4 1878 i SIDE EFFECTS: 

: 14 1 16 1 NONE 

: 14 ‘ 16 : "BEGIN 

> 1435 1685 BUILTIN 

; 14 16 $ NULLPARAMETER; 

> 14 : 1686 LITERAL 

: 14 1689 K_SET_ARG = 5 

> 1440 1690 K"COMP_ARG = 6; 

 1ee3 1893 LOCAL 

: 1408 1898 DCB : REF $DCB_DECL, ' Addr of display control block 
: 1444 169% STR_ADDR, i Addr of text 

> 1445 1695 STR“LEN : INITIAL(O), i Length of text 

: 1668 1696 PRIANT_LEN, ' Length of text w/tabs, backspaces, etc 
3 146 169 REND_CODE, ' Rendition code 

: 1°43 1998 STATOS; ' Retd by called routine 

: 1450 1700 SSMGSVALIDATE_ARGCOUNT (4, 7); 

: 1458 1708 SSMGSGET_DCB ( .DISPLAY_ID, DCB); |! Get addr of display control 
ee Foe 16 

: 1455 1705 2 ! Validity check row and column specified. 

. es a i 

; 1458 1708 SSMGSVALIDATE_ROW_COL ( ..ROW, ..COL); 

> 1460 1710 IF NOT NULLPARAMETER( CHAR_SET ) 

HUG Mean 

: 12683 1718 CASE ..CHAR_SET FROM SMGSC_UNITED_KINGDOM TO SMGSC_ALT_GRAPHICS OF 
Me ns _ 

> 1466 716 CSMGSC_UNITED_KINGDOM, SMGSC_ASCII, SMGSC_SPEC_GRAPHICS, 

; 1467 Wi SMGSC"ALT_CHAR, SMG$SC_ALT_GRAPHICS): 

: 1469 1719 CINRANGE, OUTRANGE): 

: 1470 1720 RETURN (SMG$_INVARG); 

+ 1471 1721 TES; 

: 1038 1758 _ 

; 1674 7 4 IF NOT (STATUS = LIBSANALYZE_SDESC_R2 (CHAR STRING: 

; 1476 1786 STR-ADDR) ) 

> 147 17 THEN 

; 1478 17 : RETURN (.STATUS); 

i ie 138 $1 

+ 1481 1731 i Reset the Line characteristics in case the Line was previously 

3 1482 1732 ! double high or wide. 


mo 
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Sgr SPLAT CHA snesels 


1483 


— 
ee 
“ 


hy 
5 LINE_CHAR = .DCB CDCB_A_LINE_CHAR); 


LINE_CHAR : VECTOR C,BYTE); 
ff gt tM CHAR C..ROW] NEG 0 ! prev. wide or high chars 
BEGIN ' blank Line 
LOCAL 
START_INDEX:; 
START_INDEX = SSMGSLINEAR (..R 
SSMGSBLANK_FILL ae (.0CB (OCB 
LINE_CHAR [..ROQ) = 0; 
END 
END; 


ooo 
wr 


1); 
_COLS], .START_INDEX); 


Shift existing characters over to make room for new text. If the 
press is already blank, just write into it. Don't write over a 
blank if there are characters to the right of it - an embedded blank 
should be treated as a regular character and shifted. 


Macro SSMGSFIND PRINT_LENGTH scans the perm for funny characters 
and determines how wet printing characters there are. Extra space 


SRLFSRANLSSSLESE 


is allowed for tabs. f a LF or CR is found, it terminates the strin 


i 
4 
4 
4 
4 
4 
BEGIN 
LOCAL 
INDEX, 
PTR 
LINE_LEN, 
TEXT"BUF : REF VECTOR C,BYTE); 
SSMGSFIND_PRINT_LENGTH (STR_LEN, .STR_ADDR, PRINT_LEN); 


SS 
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Be Se Se Oe Se Se Se Se Oe Be Se Be Be Se Se Se Se Se Fe Se Se Se Be Oe Se Oe Oe as Oe Se Ge Ge BH Se Se Se Se OH Se Se Be Os Se Se Oe Se Se Oe ee Oe Se Se Se Se Se Bee 
ek a at a a in tk ak ak ik kk a at a a a a a ss 2 4 1s 
me ed ed dd = dd 
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10 since the effect of this routine is Limited to a single line. STR_LE 
My is modified to reflect the number of characters that comprise PRINT_LEN. 
ig 
14 764 
1? oe? 
13 reo 
18 768 
1 26? 
0 770 
1 771 
fo 
77 INDEX = SSMGSLINEAR (..ROW polRl): 
4 77h TEXT_BUF = .0CB CDCS_A_TEXT_BUFJ; 
§ ore LINE_LEN = .DCB CDCB_W_NO_COLS) - ..COL + 1; 
ore PTR = CHSFIND_NOT_CH (.LINE_LEN, TEXT_BUF C.INDEX], %C* '); 
77 ! get ptr to Ist non=b[ank 
: , : IF .PTR NEQ 0 
7 SMGSSSCROLL_AREA (.DCB, ..ROW, ..COL 
§ 7 4 5 i, .6cB Cocé_W No CoLs) 
; ? , SMGSM_RIGHT,~.PRIAT_LENS; 
7 END; 
7 
7 '¢ 
7 


i Write text into created space. SMGSSPUT_TEXT_TO_BUFFER checks for 


1 Bl ; 32 Rey 
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—— * ae 


pene 63 
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ee 
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3 } re 1731 funny characters (tabs, etc) and also updates the cursor position. 
: 154 1 ‘ 
; i 43 1738 SSMGSSET_REND_CODE (K_SET_ARG, K_COMP_ARG); 
: 1545 1795 
: 154 fe DCB CDCB_W_CURSOR_ROW ROW: | 
> 154 179 DCB CDCB"W~CURSOR~COL = COL: | 
3 : rt 1738 ! set current position for PUT_TEXT 
; 1550 1800 SMGSSPUT_TEXT_TO_BUFFER (.DCB, .REND CODE 
> 1551 1801 “STR_LEN, .STR_ADD 
: 1 j 1 : CIF ROT NULLPARAMETER (CHAR_SET) 
: 1 1 93 THEN ..CHAR_SET 
: 1554 1 ELSE SMGSC_ASCII) ); 
; } 5s 5 a 
; 1 § 1 $$ i Turn off scrolling. Sequential output has been interupted by 
; 1558 1808 i moving the cursor for insert chars. 
: 1886 1 a ae 
: 1361 1811 DCB CDCB_V_FULL] = 0; 
: 1868 1818 \+ 
3 1288 1815 See if this change needs to be reflected on the screen. 
: 15 181 : 
; 1869 1817 RETURN (SMGSSCHECK_FOR_OUTPUT_DCB (.0CB 
; 1368 1818 SHGSC INSERT_CHARS, 
: 18% 1820 END; ' End of tout tan SMGSINSERT_CHARS 
.EXTRN CHAR_TABLE 
OFFC 00000 ENTRY SHGSINSERT CHARS, Save R2,R3,R4,R5,R6,R7,- ; 1563 
SE 4 C2 0000 SUBL2 #4. SP : 
E 04 0000 CLRL_ STR_LEN > 1683 
50 6¢ 94 3 00007 SUBB3 «#4, (AP), DIFF : 1700 
0 0 91 00008 CMPB) sé‘, #3 ; 
08 1 0 BLEQU ; 
50 000000006 &F p MOVL #SMG$_WRONUMARG, RO ; 
50 04 BC D9 18 1$: MOVL  @DISPLAY_ID : 1702 
06 BC 8 Ao p 1 CMPL 6(RO), SDISPLAY. ID ; 
0 BNEQ $ 3 
11 44 AO 9 CMPB (RO), #17 : 
8 1 BEQL 3 
50 000000006 &F p 2s: MOVL WSMG$_INVDIS_ID, RO ; 
5¢ 04 BC D 3$: MOVL § @DISPLAY_ID, DCB : 
C ? ag @ROW, RO : 1708 
59 02 Ab 10 FD CMPZV #0, #16, 2(DCB), R9 : 
4 BGEQ © 5$ F 
| 


' | 
ISPLAY_CHA SMGSDISPLAY_CHANGE - Virtual Display <= Changes 1b-5e -1984 00:16:3 AX-11 Bliss-32 V4.0-7%4 P 
et SMGSINSERT_CHARS = Insert Characters eh ~30071 387 90:08:28 YOMGRTL Ske SMGDISCHA.B32;1 age 453 
50 000000006 aF po 43 4$: MOVL #SMG$_INVROW, RO : ; 
SA 10 D 4B 5$: MOVL acoL, R10 ; : 
1 4F BLEG 6 : : 
SA 06 Ab 10 i i] CHP ZV ‘ , #16, 6(DCB), R10 : : 
50 000000006 &F i 9 6S: OVL #SMGS_INVCOL, RO : ; 
07 ¢ 91 7$: ChSR (AP), #7 + 1710 : 
§ 1F Bt seu 9$ : ; 
ae D3 ist 8 (AP) : ; 
04 0 1¢ BC CF CASEL @CHAR_SET, #0, #4 : 1713 : 
0012 0012 001 09's $ 8$: <WORD 9$-8$7- : ; 
001 007 9$-8$.- : ; 
9$-8$,- 3 : 
35-83" 
50 000000006 00 3 o0044 MOVAB SMGS_INVARG, RO : 1720 ; 
50 08 ac 00 0082 9$: MOVL §CHAR_STRING, RO + 1724 : 
000000006 90 16 000 JSB LIBSANALYZE_SDESC_R2 : : 
6E 1 7D 0008C MOVa RI, (SP) : ; 
01 50 £8 0008F BLBS STATUS, 10$ : ; 
04 009 RET : ; 
4C B649 3 0093 10$: TSTB  #@76(DCB)CR9I + 1740 : 
38 13 0009 BEQL =‘ 12$ : : 
50 FF AQ 3 00099 MOVAB =1(R9), RO : 1745 ; 
51 06 A6 3C€ 00090 MOVZWL 6(DCB). R1 : : 
50 51 C4 000A1 MULL2 R1, RO : : 
58 50 DO 000A4 MOVL RO, START_INDEX : : 
50 10 A6 00 99047 MOVL 16(DCB), TEXT_BUF : 1746 ; 
57 14 A6 7D OOOAB MOV 20(D¢B) ATTR~BUF F : 
06 Ab 20 6E 00 2C OOOAF MOVCS #0, (SPS, #327 6(DCB), (START_INDEX)- : ; 
6B40 00B5 CTEXT BUF : ; 
06 Ab 2E AG 6E 09 2c 00087 movcS #0, (SP), 46(DCB), 6(DCB), (START_INDEX)- ; 3 
6B4 008 CATTR BUF) : ; 
58 05 00C TSTL | CHAR_BUF : : 
09 1 ¢ BEQL =-«a1'18 : : 
06 Ab 30 Ab 6E 2 0004 MOVCS #0, (SP), 48(DCB), 6(DCB), (START_INDEX)- ; ; 
6B4 CB CCHAR BU : : 
4C B64 34 CD 11$: CLRB 976(D0B)CR9I + 1747 3 
58 9} — 00001 12$:  MNEGB #1, ALLONES + 1771 : 
5 D4 00004 CLRL +‘ PRINT_LEN : : 
54 bE 06 D6 MOVL  STR_LEN, BYTES REMAINING : ; 
7 04 AE D D MOVL § STRTADDR, IN_POINTER ; ; 
E D4 000DD CLRL = STRL : : 
b DF 13$:  TSTL BYTES _REMAINING : : 
9 1 3! BEQL 7$ ; : 
58 000000006 00 67 4 2A O00E SCANC BYTES REMAINING, (IN_POINTER), CHAR_TABLE, -: ; 
52 54 C O0E SUBL3 NEW_BYTES_REMAINING, BYTES_REMAINING, R2_ ; : 
of ¢ F ADDL2 Re, IN_POTNTER ; ; 
2 ¢ ‘ ADDLe Re. PRINT_LEN : : 
gE ¢ F ADDLe Re, STR_LEN ; : 
4 D F MOVL NE W_BYTES_REMAINING, BYTES_REMAINING : 3 
—E 1 FC BEQL =«17$ ; : 
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1 9A O00F MOVZBL (ADDR_DIFF), RO ; 
9 ° 000000006 $) 3 f CASEB CHAR TABLECROJ, #1, #9 : 
016 00 § 0 5 10A 14$: WORD $-T4$,- : 
5 12 16$-148,- ; 
02¢ 11A 16$-14$.- : 
15$-14$,- : 
17$-14$,- : 
17$-14$.- : 
17$-14$.- : 
17$-14$.- : 
17$-14$.- : 
16$-14$ : 
50 000000006 &F i O11 OVE #SMGS_FATERRLIB, RO : 
50 oA COA ' 5 6 15$: MOVZWL 42(DCB), RO F 
50 D7 OO12A DECL R 3 
50 0 C6 or C DIVL2 #8, RO : 
5 09 A54 E 1oF MOVAG 9(PRINT_LEN)CROJ, PRINT_LEN : 
5 D o1 INCL  S$TR_LEN ; 
Dg 136 16$: INCL —_‘IN_POINTER : 
4 D7 001 DECL § BYTES_REMAINING : 
A311 0013A BRB 13$ : 
50 FF AQ H 1 ¢ 17$:  MOVAB -1(R9), RO + 1773 
51 06 Ad 3C 0014 MOVZWL 6(DCB). R1 : 
30 51 cs 0144 MULL2 1 RO : 
5 FF AAGO E 0147 MOVAB =1(R10)CROJ, INDEX ; 
51 10 Ab p O14¢ MOVL  16(DCB), TEXT_BUF + 1774 
50 06 Ab 3C 0015 MOVZWL 6(DCB), RO t 1776 
50 Sh ce 0154 SUBL2. R10, RO ; 
0 b 0157 INCL LINE_LEN : 
6241 50 : 0159 SKPC =—-s #32, “LINE_LEN, (INDEX) CTEXT_BUF J : 1778 
2 12 0015 BNEQ 18$ F 
D4 001 CLRL sR : 
51 D3 O16 18%:  TSTL PTR : 1780 
15 13 00164 BEQL. 19S : 
55 DD 0166 PUSHL PRINT_LEN : 1784 
04 bp o1 PUSHL #4 : 178 
7E 06 Ab 3C OO16A MOVZWL 6(DCB), -(SP) : 178 
1 dD O16 PUSHL #1 : 1782 
0640 8F BB 001 PUSHR #*M<R6,R9,R10> : 
000000006 00 7 FB 00174 CALLS #7, SMGS$SCROLL_AREA ; 
50 2E A6 9A 00178 19$:  MOVZBL 46(DCB), REND_CODE > 1793 
05 -  6C «91 -0017F CMPB. CCAP), #5 ; 
~ 09 4F 001 BLSSU 0 : 
14 AC 05 001 TSTL (AP) : 
04 13 00187 BEQL 0 : 
50 16 BC § 189 BISL2 @RENDITION_SET, REND_CODE : 
06 6C 91 .0018D 208:  CMPB (AP), #6 ; 
09 1F 001 BLSSU 218 : 
18 AC 05 19 TSTL 4 (AP) : 
04 1 EQL 1$ ; 
50 18 § cf 19 XORL2 @RENDITION COMPLEMENT, REND_CODE : 
38 Ab BO 00198 21S: Ve Rd, 40(DCBY : 17 
A A A B0 19F move R16, 42(DCB) : 179 
0 C 1A3 4 (APS, #7 > 1802 
A iF 1A BLSSU 338 : 
1¢ AC DS 001 (AP) ; 
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0S 13 OO1AB BEQL 2s 3 

1¢ bb 1 PUSHL HAR_SET : 

18 RB $ ; 

DD 0018 34s: PUSHL # : 

8 AE DD 001 $: PUSHL STR_ADDR : 

af DO 0018 PUSHL STR_LEN 3 

2 DD OO1BA PUSHL REND_CODE 3 

g DD 0015C PUSHL a : 

econcoges 00 FB 0018 CALL #5, SOGSSPUT_TEXT_T0_BUFFER 3 

ne 9 dD oore PUSH RO) 

F DD QO1CB PUSHL #15 3 

g DD 001CD PUSHL 4° : 

00000000G 00 bf 186 He LS #3, SMGSSCHECK_FOR_OUTPUT_DCB : 


; Routine Size: 471 bytes, Routine Base: _SMGSCODE + 066C 


; 1571 1821 1 !<BLF/PAGE> 


15 See 


ISPLAY_CHA SMGSDISPLAY_ CHANGE = Virtual Display -- Changes 1-36 $1984 00:16:3 AX-11 Bliss-32 V4.0-74 Pa 8 

at} SMGSINSERT_CINE = Insert a Line Gate a vireust 1 730071382 99:38:25 SMGRTL. RCISMGDISCHA.B 2:1 9 495 

: 1573 1 1 ZSBTTL "SMGSINSERT LINE = Insert a Line into a virtual display’ ; 
3 : ie ; } GLOBAL ROUTINE SMGSINSERT_LINE 4b 4 A ° : 
3 3 6 1825 1 STRING ; 
: 157 186 | DIRECTION, : 
: 1 rs 1 1 RENDITION_SET . 
71 1 8 1 RENDITION- COMPLEMENT, : 
; 1580 1 1 WRAP_FLAG : 
: 1581 1830 1 CHAR“SET § = ; 
31 S¢ 1831 1 : 
3 1 § 1 e+ ; 
3 ! ¢ ! ? : FUNCTIONAL DESCRIPTION: : 
3; 1586 1835 1! This routine allows a Line to be inserted into a virtual display ; 
3; 1587 1 § 1! at a location other than the first or last Line. Existing Lines ; 
; 1588 1 1! are scrolled in the specified direction to create an open space. : 
3 1288 1 3 1! If a string is passed, it will be written in the space created; : 
; 1590 1 1} otherwise, the new Line will remain blank. The entire Line is : 
; 1591 ery 1! rewritten; if the string does not span the width of the display, ; 
3 1238 98 | it is blank padded. : 
3: 1594 1808 1; If WRAP_FLAG is set, characters which would exceed the rightmost : 
3; 1595 1844 1! boundary of the display cause another line scroll and the overflow : 
; 1596 Hb +k 1! characters are written in the created space. If WRAP_FLAG is off, ; 
; 1232 1346 ! } any overflow characters are lost. . 
3; 1599 1848 1! The internal display cursor position is left at the character ; 
3 iene Hh ed : } position following the text written. ; 
; 160 1851 1! See SMGSPUT_WITH_SCROLL to add lines at the first or last : 
: 160 1326 1! Line of a virtual display with scrolling. 3 
: 1604 1853 1! ; 
: 1605 1854 1 ! CALLING SEQUENCE: : 
>; 1606 1855 1! ; 
; 1607 1856 1! ret_status.wic.v = SMGSINSERT_LINE ( DISPLAY_ID.rl.r, : 
: 1608 1857 1! INE_NO.rlu.r, 3 
3; 1609 1858 1! »STRING. rt.dxJ ; 
3; 1610 1859 1! DIRECTION. rl.r] 3 
3; 1611 1860 1! »RENDITION_SET.rl.rJ 3 
3 1oi¢ 1861 1! RENDITION. COMPLEMENT. rl.rJ : 
3; 161 1 1! eWRAP_FLAG.rl.r 3 
> 1614 1863 1! »CHAR.SET.rl.rJ) 3 
3: 1615 1864 1! 3 
z 1616 1865 1 | FORMAL PARAMETERS: : 
3 1918 H+ +4 ' DISPLAY_ID.rl.r Display id of desired virtual display. : 
; 1631 1886 : LINE_NO.rlu.r Line number at which to start scroll. : 
3; 16 § 1871 1! STRING. rt.dx Optional. Text to insert into Line 3 
3; 16 1872 1! created. If not specified, all blanks 3 
> 1624 1875 1! are used. F 
3; 1625 1874 1! ; 
3; 16 § 1875 1! DIRECTION. rlu.r Optional. Direction to scroll text. ; 
3; 16 1876 1! SMGSM_UP (Default) F 
3; 1628 1877 1! SMGS$M_DOWN : 
3 1629 1878 1! : 

| 
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; 16 7 RENDITION_SET.rl.r Each 1 bit attribute in this parameter 

631 causes the corresponding attribute to 
6 ¢ be set in the display. (See below for 
? j List of settable attributes.) 
635 4 RENDITION_COMPLEMENT.rl.r 
6 5 Each 1 bit attribute in this parameter 
6 § causes the corresponding attribute to 
638 be complemented in the as. & (See 
639 3 below for List of complementable 
ey attributes.) 
org 3 If the same bit is specified in both the RENDITION_SET parameter 
64 3 and in the RENDITION_COMPLEMENT perencter. the appt ication is 
644 9 RENDITION_SET followed by RENDITION complement. Using these two 
645 94 parameters together the caller can exercise arbitrary and 
ong 95 independent control over each attribute on a single call. On an 
64 38 attribute by attribute basis he can cause the following 
ore 44 transformations: 

° 344 SET COMPLEMENT Action 

¢ 901 0 peres= Attribute unchanged. 

O08 1 Attribute set to ‘'o 

: 90 Attribute set to complement of 

6 

7 

8 

9 

0 
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Ss$ 
SMGS_INVDIS_ID Invalid display ‘ 
SMG$_WRONUMARG Wrong number of arguments. 


SIDE EFFECTS: 
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904 current sett ng. 
44 1 1 Attribute set to ‘‘off'’. 
7 WRAP_FLAG.rl.r Optional. Action to take if text does 
o08 not fit on the Line. 
90 0 = nowrap (Default) 
a1% 1 = wrap 
aig CHAR_SET.rl.r Opt tonal. Character set to use. 
664 91 Choices are: 
665 914 SMGSC_UNITED_KINGDOM 
666 915 SMGSC_ASCII default) 
667 916 SMG$C_SPEC_GRAPHICS 
668 917 SMGSC_ALT_CHAR 
669 918 SMG$C_ALT_GRAPHICS 
670 919 
671 920 IMPLICIT INPUTS: 
O76 921 
67 g ¢ NONE 
674 9 
675 924 IMPLICIT OUTPUTS: 
676 925 
677 S $ NONE 
678 7 
th 3 8 COMPLETION STATUS: 
68 NORMAL Normal successful completion 
9 
o 
9 
9 
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eegee SMGSINSERT_CINE = Insert a Line into a vires 12-808-1 382 99:08:25 SHGRTL.SRCISMGDISCHA.B 2;1 . 3 
: 1687 1 1! NONE 
; 16 : 1 5 joo 
; 16 1 8 BEGIN 
; 16 1 
; 1691 1940 BUILTIN 
; 1638 ! 41 NULLPARAMETER; 
3 1694 1908 LITERAL 
3 1695 1944 K_SET_ARG = 5 
i 1696 1945 K-COMP_ARG = 6; 
; 169 1206 
3 3 a8 194 LOCAL 
3% 1308 DONE, 
; 1700 194 STATUS ! Status of subroutine calls 
: 1701 1950 DCB : REF $DCB eee } Addr of display control block 
: 1706 1951 STR_LEN : INITIAL (0), ! Length of text string 
; 170 1326 STR_ADDR, ! Addr of text string 
Si te ee, ah teen 
3 ! Working character se 
3 1708 1955 WRAP_CHARS : INITIAL (0), ! No. of overflow characters 
; 170 1956 ' Reset by call to 
; 1708 1957 ! SMGSSPUT_TEXT_TO_BUFFER 
iMG 1388 a, | SStSDy SbneRSE nemo C60e® 
2 7 e = = 
; 4} 13ey SSMGSVALIDATE_ARGCOUNT (2, 8); F 
3 a ° LAY_ID, ; ! Get address o splay contro 
1718 130 SSMGSGET_DCB ( .DISPLAY_ID, DCB) ee pee f displ L 
; ! bloc 
3; 1715 1964 
; 1716 1965 + 
3 1717 1298 ! Validity check the arguments. 
3; 1718 196 !- 
3; 1719 1968 
: 1720 1969 IF ..LINE_NO LSS .DCB CDCB_W_TOP_OF _SCRREG] OR 
; i 1 Hp 44 gob SNe MO GTR .DCB CDCB-W"BOTTOM_OF _SCRREG) 
3 17 : 1376 RETURN (SMGS$_INVROW); 
3 1724 197 
; 4 5 Hb 4 DIR = SMGSM_UP; ! init to default 
3; 17 $ 1208 IF NOT NULLPARAMETER( DIRECTION ) 
3; 1728 197 THEN 
3 1729 1978 GIN 
3; 1750 1979 4 IF (..DIRECTION NEQ SMGSM_UP AND 
3 1731 1980 4 - DIRECTION NEQ SMGSM_DOWN) 
3 17 ; 133) 3 THEN 
3: 17 19 § 4 RETURN (SMG$_INVARG) 
3 17 198 ELSE 
3; 1735 1984 DIR = ..DIRECTION; 
3: 17 1985 END; 
3 17 19 $ 
3 He 3 44 C_SET = SMGSC_ASCII; ! init to default 
3 1740 1989 IF NOT NULLPARAMETER( CHAR_SET ) 
3 1741 1990 THEN 
3 17hg 1991 BEGIN 
> 174 1992 CASE ..CHAR_SET FROM SMGSC_UNITED_KINGDOM TO SMGSC_ALT_GRAPHICS OF 


HK TOMMOOWZ EM KOCH TOMMOOWZ EF KCK ILO MMOOW!S EF ACH TO MMOOWZ Er ACH TO ™MOO® 


t+ 
! Reset the Line characteristics in case the Line was previously 
double high or wide. 


LINE_CHAR = .0CB CDCB_A_LINE_CHARI; 


LINE_CHAR : yes C,BYTE); 

LINE_CHAR (..LINE_NO) = 6; 

END; 
'¢ 

! Write text into the space just created. SMGSSPUT_TEXT_TO_BUFFER 
meg for funny characters (tabs, etc) and also Updatés Fhe cursor 
! position. 
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nee8 SMGSINSERT_CINE = Insert a Line late a virtolt 1 730071382 90: 08:28 SMGRTL.SRC Shep \Séua 69251 ” 13) 
: lee 1994 sis 
: 1746 1995 CSMGSC_UNITED_KINGDOM, SMGSC_ASCII, SMG$C_SPEC_GRAPHICS, 
> 1747 1996 SMGSC-ALT_ CHAR, SMGSC_ALT_GRAPHICS]: ~ ~ 
; 1748 199 C_SeT =... sels 
3; 17469 1238 CINRANGE, OUTRANGEJ: 
: 1750 199 RETURN (SMG$_INVARG); 
3; 1751 000 TES; 
; 1728 001 END; 
3 17 00 
1586 i i*s i ith h Ll blank Li 
; : Set up string to output, either the caller's text or a blan ne. 
1 aa ff Saree 
; 1758 007 IF NOT NULLPARAMETER (STRING) 
: 1759 008 THEN 
; 1760 009 BEGIN ' use calcer's text 
: 170) $3) 4 i NOT (STATUS = LIBSANALYZE_SDESC_R2 (.STRING; STR_LEN, STR_ADDR)) 
: i7e8 $1 : RETURN (.STATUS); 
3: 1764 shi END; ' user caller's text 
: Fee sos 
; 1+ 
: 176? $1 ! Move existing Lines up or down to create an empty space. This space 
; 1fe8 sot ! will remain empty if the user did not specify a text string. 
: 1770 201 
$ 4a 8S IF ae EQL SMGSM_UP 
: 1938 $05 SMGSS$SCROLL_AREA (.D0CB, .DCB CDCB_W_TOP_OF SCRREG), 
> 177% 202 .DCB COCB_W_COL-STARTI, 
: 1775 202 (..LINE_NO = .0CB COCB_W_TOP_OF_SCRREG] + 1), 
3: 1776 if .DCB COCB_W_NO_COLSJ, 
: ier Bs a SMGSM_UP,~ 1) 
; 1779 $05 SMGSSSCROLL_AREA (.DCB -LINE_NO, .DCB CDCB_W_COL_START], 
; 1780 : : .DCB_COCB W7BOTTOM_OF_SCRREG) -~..LINE.NO + 1), 
3 1781 .0CB COCB @_NO_COLS], 
3 Irae 3 MGSM_DOWR,~1); 
: 178 3 
: 1784 
3; 17 
i 
21 
3 7 
s 3 
: > 
3 1 
3 7 
3 1 
3 1 
3s 1 
3 7 
3 1 
3 1 
Ss 
2 ¥ 


OO NO MEW O OBNO NE WIN OO DNA UE WIN O ODNOAUES WN O 


SANNA 
LSSELES 
REPRIPPPPIPIPIPIPOPININPINININYPINTY 
ype ttttr tet ete at t 
WAWWAWw 


RELRRELEK 


SSsssseas 


SAGSDISPLAY. CHA SMGSD 
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now 
mo 


zr 
—> 
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; 1801 050 !@ 

; 3 8 1 

; 180 ; IF .STR_LEN NEQ 0 

: 1804 2 THEN 

; 1805 4 BEGIN ! parse & move caller's text 

3 1308 82? SSMGSSET_REND_CODE (K_SET_ARG, K_COMP_ARG); 

; 1808 037 dcB Hidgisaies = ,.LINE_NO; 

; 1809 58 DCB COCB_W_CURSOR_COLJ = 1; 

; 1810 059 ! set current position for PUT_TEXT 
3 a ee DCB CDOCB_V_FULL] = 0; 

: 1818 te SMGSSPUT_TEXT_TO_BUFFER (.0CB, 

; 18146 06 ~REND_ CODE, 

>; 1815 064 -STR_CEN 

; 1816 065 ~STR-ADDR, 

3; 1817 066 C_SE 

: 1818 2067 WRAP_CHARS); 

3; 1819 2068 END 

; 1820 2069 

$ iss) 2070 ELSE 

3 18 § 2071 BEGIN 

: 182 $o78 + 

> 1824 207 ! Used the short cut to put out a blank Line (we Let SMGSS$SCROLL_AREA 
; 1825 074 ! do it), so we must update the cursor position ourselves (normally 
; 18 $ O78 | SMGSSPUT_TEXT_TO_BUFFER would do it). 

: 1828 077 DCB COCB_W_CURSOR_ROW] = ..LINE_NO + 1; 

: 1829 078 : IF .DCB TpCB_wW_CURSOR_ROW) LEQ .0CB COCB_w_BOTTOM_OF _SCRREG 

: 1830 079 THEN 

> 1831 080 4 BEGIN 

: 1836 081 4 ocB pocBv FULL) = 0; 

; 183 O8¢ 4 DCB CDCB-W~CURSOR_COL] = .DCB COCB_W_COL_START] 

: 1834 083 4 END 

; 1835 084 3 ELSE 

; 1836 085 4 BEGIN . ! just wrote last Line 

; 1837 086 4 dCcB Bee CURSOR ROM) = .DCB LDCB_W_BOTTOM OF _SCRREG); 

: 1838 087 4 DCB DCB“W~CURSOR”COL = .0CB COCB"W"NO_COLS); 

> 1839 088 4 DCB EDCB-V-FULL) = 1; ' remember used all Lines 

; 1840 44 6 DCB CDCB_¥_COL_80] = 1; ! remember at last col position 
> 1841 END; 

: 1366 091 END; 

: 184 O36 

> 1844 4 '¢ : ; 

: 1845 94 ! Check for overflow characters which should cause us to scroll 2 Lines 
> 1846 095 ! in order to output everything (if wrap requested). Need to pass the 
F ! 7 $38 number of characters (not the printing length) in the descriptor. 

3 1 3 98 

: 1850 99 IF .WRAP_CHARS NEQ 0 

; 1851 100 THEN 

3 1 6 101 BEGIN 

; 185 1 § IF NOT NULLPARAMETER( WRAP_FLAG ) AND 

; 1885 : WRAP _FLAG NEQ 0 ' wrap requested 

: 1 36 105 4 BEGIN ! recurse until whole string output 
; 185 1 4 LOCAL 
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; } 38 198 4 TEMP_DESC : BLOCK (8, BYTE); 
: 1860 1 § 4 TEMP DESC Ds¢$B CLASS] = DSCSK_CLASS_S; 
> 1861 119 4 TEMP"DESC CDSC$SB-DTYPE] = DSCSK-DTYPE_T: 
: 1866 111 4 TEMP-DESC [CDSCSWILENGTH)] = .STR-LEN -~.0CB CDCB_W_NO_COLS); 
> 1 11 4 TEMPDESC CDSCSATPOINTER] = sR ADDR + 
> 1864 113 4 .0CB COCB_W_NO_COLS); 
HB BS . 
> 186 116 4 i Kludge for downscrolling so that pieces of the Line appear 
3 1308 aT ? in the correct order. 
; 189 119 4 if .DIR EQL SMGSM_DOWN 
: 1B} is} 3 THEN BEGIN 
: 1873 1 é ; LOCAL 
> 1874 1 OVERFLOW_LINE; 
: 1875 124 OVERFLOW LINE = ..LINE_NO + 1; 
3 1876 125 SMGSINSERT_LINE (.DISPCAY_ID, OVERFLOW_LINE, 
> 187 126 TEMP DESC, “REF (SMGSA_DOWN) 
: 1878 127 6 (IF ROT NULLPARAMETER TRENDITION_SET) 
> 1879 128 $ THEN .RENDITION_SET 
; 1880 129 ELSE 0) 
> 1881 130 6 (IF NOT NULLPARAMETER (RENDITION COMPLEMENT) 
: 1882 131 THEN .RENDITION_ COMPLEMENT 
; 188 1 é ELSE 0) 
: 1884 1 .WRAP_FLAG, €_SET); 
bbe 138 i -—" 
> 1887 136 4 SMGSINSERT_LINE (.DISPLAY_ID, .LINE_NO, 
> 1888 137 4 TEMP_DESC, £REF (SMGSM_UP), 
> 1889 138 5 (IF NOT NULLPARAMETER TRENDITION_SET) 
; 1890 139 ; THEN RENDITION_SET 
; 189¢ 141 § (IF NOT NULLPARAMETER (RENDITION_COMPLEMENT) 
: 1893 148 ; THEN RENDITION_ COMPLEMENT 
: 1833 148 6 aimee 
; 1899 1466 4 DONE = 0; gets 
3 1398 1? 2 Ae 1; ! to keep Bliss happy 
> 1900 129 3 ELSE 
we Re eer 
; 1908 138 é i Wrap was not requested but there were overflow characters. 
3 1908 13? ? } Put out diamond in last position to show truncation. 
; 1906 155 4 if .DCB CDCB_V_TRUNC_ICON] 
> 190 136 4 THEN 
: 1908 13 BEGIN 
:1 1 & DCB CDCB_W_CURSOR_COL] = .0CB CDCB_W_NO_COLS); 
3 1910 15 SMGSSPUT_TEXT_TO_BUFFER (.0CB 
> 1911 160 “REND CODE + ATTR_M_USER_GRAPHIC, 
: 1918 161 i, yeCiT (BYTE (DIAMOND)T, 
: 191 1 ; SMGSC_ASCII); 
> 1914 163 4 END; 
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— + 4 4 


DONE = 1; 
END; 
'¢ 


S 
$ 
4 
END 
ELSE 
DONE = 1; ! no wrap chars 
i See if this change should be reflected on the screen. Even if 
! we call SMGSINSERT_LINE again, SMGS$SCHECK_FOR_OUTPUT_DCB should 

be executed only once. 
IF .DONE 
RETURN (SMG$S$CHECK_FOR_OUTPUT_DCB (,0¢8 
SMG$C_INSERT_LINE, 
. «LINE_NO)) 
ELSE 

RETURN 1; 


END; ! End of SMGSINSERT_LINE 


kk kk a ts 
DODOOOOOODOODDODODDOODODOODOON0O 
Ney see ae 

VIFSWN OC ODNOUFSWN-O0OONOU 
ao et 8 ws = 
br cert PPP RNR P WN Re SS 
FW 0 OONOUN EW" OOONOu 


00843 -BLKB) 1 
60 00844 P.AAA: .BYTE 96 : 
O3FC 00000 -ENTRY SMGSINSERT_LINE, Save R2,R3,R4,R5,R6,R7,R8,~; 1823, 
59 000000006 00 9 00002 MOV SMGSSPUT_TEXT_TO_BUFFER, R9 5 
. BG) RE a) 
04 AE D4 O00F CLRL_  WRAP_CHARS : 
50 6C 03 83 0001 SUBB3 #2, TAP), DIFF + 1960. 
06 50 91 00015 CMPBs«éOdUCFF, #6 ; 
08 18 0018 BLEQU§ 1$ : 
50 000000006 &F b0 O01, MOVL #SMG$_WRONUMARG, RO | 
50 04 BC DO 00022 1$: MOVL  a@DISPLAY_ID, RO > 1962 | 
04 BC 8 AQ D} 00 6 CmPL 56(RO), SDISPLAY_ID 
1 44 AS 9 00 D CMPB (RO), #17 : 
1 1 BEQL : 
50 000000006 8F v6 00 : 2$: MOVL #SMGS$_INVDIS_ID, RO : 
53 04 BC D6 0038 3$: MOVL § @DISPLAY_ID, DCB : | 
54 08 BC D 0 F MOVL aL INE NO7_R4 : 1969 
54 48 3 10 0 FD 3 cMP2V #0, #16, 72(DCB), R4 
54 6A AB 10 FD : CMPZV #0, #16, 74(DCB), R4 ; 1970 | 
50 000000006 3 Q 4$: HOVAB SMG$_INVROW, RO : 1972 | 
57 01 dO B S$: MOVL #1, DIR : 1974 | 
04 6C 91 0005 CMPB «NC AP), #4 : 1976 
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@RENDITION_SET, REND_CODE 
(AP), #6 
16$ 
eg?) 
$ 


@REND 
4, 


TION COMPLEMENT, REND_CODE 
R4, 40(DCBY 
#1, 42(0CB) 
CB) 

RS 


STR pp 
#*MZR3,R5,RB> 

#6, SMGS$PUT_TEXT_TO_BUFFER 
R4, 40(DCB) 

pcBs, 74(DCB) 
cB 


c 
5 
CB 
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TEMP _DESC+2 
STR_CEN, TEMP_DESC 


STR_ADDR, TEMP_DESC+4 
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4.26 ~ 4.0-74 Page 57 
-S$ep-1984 00:16:3 AX-11 Oi ies 32 v4. § : Pm 
ANGE - Virtual Display == Changes 16-Sep-19 09, SMGRTL.SRCISMGDISCHA.B2; 1 | 
1 ett cae SMOSINSERT CINE ; Insert a Line into a vireust 12 Sep 1984 9 6 a! | 
OF as OOie PEt é NDITION_SET ; 2128 
A SP RE Herron, bee 
re D4 001C 358: CLRL ag ; 31 4 
10 AE 02 DO OO1CA 26$:  MOVL He A | 
a F ibt PUSHAB TEMP DESC ; 2125 
$5 AE 9F 00104 PUSHAB QYERFLOW_LINE | 
BI an, Ble fir a 
of Ar pp 1DC=—s—<C«s~*é«‘é SL WRAP _FLAG : set 
06 6¢ 1 001DF CMPB ; : | 
A iF OO1E2 BLSSU 8$ | 
18 AC D5 164 Ist een 
18 ob Sieg PUSHL RENDITION_COMPLEMENT | 
03 11 OO1EC BRB 298 z141 
E 04 OO1E 88: CLRL (SP) mit 
05 6C 91 001FO 298: CMPB é ; 
OA iF OO1F BLSSU O$ 
14 aC 05 OIF TSTL pa 
O2 ab BOiEA aie RENDITION_SET ; 2139) 
OR RR Gage irri tent 
% D4 OO1FF 308: CLRL = gre 3139 
10 AE 01 D0 00201 31$: MOVL a at peel 
40 AE F 5 83 PUSHAB TEMP_DESC ; 2 | 
Se RB, Ret HBC a ed 
- 8 Ran ALLS #8, SMGSINSERT_LINE E wcea'| 
FDEA CF 08 FB 00211 CAL we & : 2146 
52 D4 00 1 CLRL oN i 
64 Lt 90 i, 33$: BBC #1, 47(DCB), 348 : 195 
= , 8 $6 8 1F " movw = (RO), 42 (DCB) ; 135, 
ip 01 OD 00 H PUSHL 1 ae ire 
FDD6 «CFOS 0 3 PUSHAB B AAA 3 
40 n 4 8 B PUSHAB 64(REND_CODE) : $160 
38 PB $0 CALS , SMG$SPUT_TEXT_TO_BUFFER a | 
69 05 FB 0 HS, SMG LTEXT_ 168, 
52 1 DO 00233 34$:  MOVL #1 DONE : B78 
OF 3 E9 00 BLBC DONE, 33 : $98 
eG BB Re FR INE aH 
SHL DCB | 
000000006 00 3 43 49 CALLS ase SMGSSCHECK_FOR_OUTPUT_DCB Sone. 
04 ; | 
: MOVL #1, RO S o1g4 
50 01 9 0 48 35$ HOV 


; Routine Size: 588 bytes, Routine Base: _SMGSCODE + 0845 


; 1936 2185 1 !<BLF/PAGE> 
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; 1338 1 § 1 ZSBTTL "SMGSPUT_CHARS = Put Text to Display’ 

; 19 1 1 GLOBAL ROUTINE SMGSPUT_CHARS ( 

: 1940 1 1 DISPLAY_ID 

> 1941 189 1 TEXT “: REF BLOCK C,BYTEI, 

: 1306 190 1 LINE_NO, 

; 194 191 1 COL_AO, 

3 1944 13 1 ERASE LIME FLAG, 

; 1945 195 1 RENDITION SET 

> 1946 194 1 RENDITION~ COMPLEMENT, 

> 1947 195 1 CHAR_SET 

3: 1948 138 1 )s 

3: 1949 197 1 !44 

; 1950 138 1 ! FUNCTIONAL DESCRIPTION: 

3; 1951 199 1! 

3 1326 00 1! This routine is used to write aoqeagre to the virtual i - ae 
; 195 01 1! No additional cursor motion is added. Existing text is NOT 

3; 1954 8 1 3 shifted over = SMGSPUT_CHARS will overwrite an oi already 

3; 1955 oe ef in the gpettitee positions. (See SMGSINSERT_CHARS to write new 
3 1328 208 : text while preserving existing text.) 

; 1958 06 1! by default, SMGSPUT_CHARS will write out only the text passed to 
3; 1959 207 1! it - other character positions in the Line are not modified. 

: 1960 208 1! Gpetonetty. the caller can request that the Line be erased before 
3 1961 209 1! the new characters are output by setting ERASE_LINE_FLAG. This 
3 1206 210 1! option is provided for callers who do not want to preserve the 
5 1307 $i) : previous contents of the Line. 

: 1965 $18 73 The internal display cursor position is left at the character position 
: 1966 2144 1! following the text written. 

3: 1967 si? 1! 

3; 1968 16 1 ! CALLING SEQUENCE: 

3 1969 2e17 1! 

; 1970 $5i8 1! ret_status.wic.v = SMGSPUT_CHARS (DISPLAY_ID.rl.r, 

3; 1971 19 1! TEXT. rt.dx 

: 1378 ss 1! »LINE_NO.rl.r, COL_NO.rl.r) 
3; 197 2e1 1! »ERASE_LINE_FLAG.rTl.rJ 

> 197% 33¢ 1} ;RENDITION SET. ri.rd 

3; 1975 es 1! RENDITION _COMPLEMENT.rl.rJ 
3 1976 4 1! »CHAR_SET.rl.rJ) 

3; 1977 _ i, 2 

3; 1978 226 1 ! FORMAL PARAMETERS: 

3; 1979 eer (1! 

; 1390 $$6 : DISPLAY_ID.rl.r Display id of virtual display 

: 1982 386 : TEXT. rt.dx Address of descriptor of output string. 

3; 1984 § 13 LINE_NO.rl.r Optional. Address of Line number at which to 
3; 1985 os start output. If omitted (=0), the current 

: 1938 : : Line number is used. 

; 1988 § 7! COL_NO.rl.r Optional. Address of column number at which 

3; 1989 1! to start output. If omitted (=0), the current 
3 13a0 5 : : Line number is used. 

: 1za6 40 1! ERASE_LINE_FLAG.rl.r 

3; 199 41 1! Optional . Address of flag which specifies 

3 1994 42 1! whether to erase the Line before outputting 
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Attributes which can be manipulated in this manner are: 


SMG$M_BL INK es pow ty characters blinking. 
SMGSM_BOLD disp if 
nsity 


inte ° 
SMGSM_REVERSE displays characters in reverse video -- that is, 


WAI PUNS 


ays characters in bighet=then-nernal 


1995 43 ! the specified text. 
138 d de=> Don't 
==> Don't erase 

1998 4 
1999 4 RENDITION_SET.ri.r Each 1 bit attribute in this parameter 
000 4 causes the corresponding attribute to 
001 4 be set in the display. (See below for 
oOe List of settable attributes.) 
004 RENDITION_COMPLEMENT.rl.r 
005 Each 1 bit attribute in this parameter 
B08 2 causes the corresponding attribute to 
00 be complemented in the nee & (See 
008 5 beiow for List of complementable 
04 5 attributes.) 

11 : If the same bit is specified in both the RENDITION_SET parameter 

\ 6 and in the RENDITION_COMPLEMENT pereneter. the appl ication is 

1 6 RENDITION_SET followed by RENDITION complement. Using these two 

14 6 parameters together the caller can exercise arbitrary and 

15 6 independent control over each attribute on a sinete call. On an 

18 6 attribute by attribute basis he can cause the following 

1 ° transformations: 

i SET COMPLEMENT Action 

$) 6 0 eevee Attribute unchanged. | 

; 1 0 Attribute set to ‘'on 

2 0 1 Attribute set to complement of 

4 current ete 

? 1 1 Attribute set to ‘‘off'’. 

7 

8 

9 

0 

: 


Morononoronr 


Fae ee eee ee wwe efolelelolelolelelelolololol-l-) 


using the eopestte default rendition of the 
virtual display. 
SMGSM_UNDERLINE displays characters underlined. 


CHAR_SET.rl.r Spt yenet. Character set to use. 


ve 
w 
0000 C9 C009 08 SII NN NNN 


ete Je ~ 


SOUS 


Be Se Se Se Se Se Se Be Se Be Se Se Ge Se Se Be Ge Se Se Se Ge Be Se FHSS Se Ge Se Ge Se Ge Ge BH Hs Se Se Se Se Se SH Se Oe Se Ge Se SESH Se Se Se Se SH Se Se Sees 
ee a ce ee ee ce ce ee ce ce ce ce ce ee ee ce ee ce ee ee ec ee ee ee ee ee ee ee el ce ce ee ee ee ee ee ee ee ee ed eed 
CO he 0 0 ho 86 8 EE HE 6 HE PE 6 HE 6 OE EE EE 6 8 HE 6 6 6 6 6 6 6 EOE OE EE ESE SESE SI OOS SOs asasasacse 


MOPUPOROTY 
RIPIM PP ININPIMIPIPINIPIDIMNININIPINIPPIPYPINY/PIPNIPPIPIPYININPUNPINIPIPINPUPININPIPUPTY 


oices are: 

040 SMG$C_UNITED_KINGDOM 
041 SMGSC_ASCII Tdefault) 
Beg SMG$C_SPEC_GRAPH 
04 SMG$C_ALT_CHAR 
bs SMGS$C_ALT_GRAPHICS 

§ IMPLICIT INPUTS: 
se None 
050 IMPLICIT OUTPUTS: 
051 
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SMGSPUT_CHARS = Put Text to Display -Sep-1 RCJSMGDI 


1 
SMGRTL. DISCHA.B852;1 (14) 
; NONE 


; 20 § ! 

: 6 4 2 i COMPLETION STATUS: 

; 8 4 13 $S$_NORMAL Normal successful completion 

; 5 1! SMGS$_INVCOL Invalid column specifi ation 

$ 28 1! SMG$_ INVROW Invalid row specification 

; 20 1! LIBS_INVSTRDES Invalid skring descriptor 

3 54 $8 } SMGS_WRONUMARG Wrong number (or combination of) arguments 

: 206 10 1 | SIDE EFFECTS: 

; 206 jee 

3; 2064 \§ £ NONE 

: 065 17 ; leo 

; 067 15 BEGIN 

> 2069 9 BUILTIN 

: a NH NULLPARAMETER; 

: Ore ; 0 LOCAL 

; 207 1 ROW, ! Row where text goes 

3 2074 ; § CoOL, ' Column where text goes 

3; 2075 REND_CODE, ' RENDITION_CODE code to use. 
: 207 324 STR_CEN : INITIAL (0), ' Length of text string 

3; 207 325 STR_ADDR ! Addr. of text string 

; 2078 3 6 DCB”: REF $DCB_DECL, i Address of virtual display 
; 2079 3 ' control block 

3 oat $56 STATUS; ' Status of subroutine calls 
: 208 380 LITERAL 

; 208 3 K_SET_ARG = 6 

; O86 33¢ K"COMP_ARG = ?; 

; 086 H SSMGSVALIDATE_ARGCOUNT (2, 8); 

: 2088 $3 SSMGSGET_DCB ( .DISPLAY_ID, DCB); ! Get address of virtual display 
3; 2089 3 ' control block. 
ORG. 

; O38 40 i yet the Length and address of the text string. 

el MLE 

: O36 ‘§ IF NOT (STATUS = LIBSANALYZE_SDESC_R2 ( TEXT: 

; 209 5 STR-ADDR)) 

3 4 ry THEN 

: 4 RETURN (.STATUS); 

we HG, 

: 21 § 50 ' Check for all optional arguments. Set local variables to caller's 
3 19 32 : values, when available, and defaults when arguments omitted. 

: 2105 5 ; 

3 21 22 IF NOT NULLPARAMETER (LINE_NO) AND 

3 : HM 2? ss NO NEQ 0 


16 
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09 ? ROW = ..LINE_NO 

0 8 ELSE 

1 39 ROW = .DCB CDCB_W_CURSOR_ROW]; 

: 61 IF NOT NULLPARAMETER (COL_NO) AND 

4 26 ee NO NEQ 

5 6 

8 64 COL = ..COL_NO 
65 ELS 

3 26 COL = .DCB CDCB_W_CURSOR_COL]; 

0 68 SSMGSVALIDATE_ROW_COL (.ROW, .COL); 

1 $9 ‘verify row & col within display 

é 71 SSMGSSET_REND_CODE (K_SET_ARG, K_COMP_ARG); 

3 a ! macro to use caller's args if present 

8 74 ca NULLPARAMETER( CHAR_SET ) 

8 BEGIN 

. gaze -»CHAR_SET FROM SMGSC_UNITED_KINGDOM TO SMGS$C_ALT_GRAPHICS OF 

1 

¢ CSMGSC_UNITED_KINGDOM, SMGSC_ASCII, SMGS$C_SPEC_GRAPHICS, 

SMGSC-ALT_CHAR, SMGSC_ALT_GRAPHICS): 


CINRANGE 


TES; 
END; 


OUTRANGE): 
RETURN (SMG$_INVARG); 


'¢ 
! Reset the Line characteristics in case the line was previously 
double high or wide. 


MIPIPONS 


en eee eee ee ee en eae ae ee 


“ “ 


N 
LINE_CHAR = .DCB CDCB_A_LINE_CHAR]; 


LINE_CHAR : VECTOR C,BYTE); 
LINE_CHAR C.ROW] NEQ 0 ! prev wide or high chars 


BEGIN ! blank Line 


GI 
ND 


Rt Ne Dette th 2 4 tat 474 4 


—— = ~QOOOOOOCOSoSo oan 


i. 
THEN 


CAL 
START_INDEX; 

START_INDEX = SSMGSLINEAR (.ROW, 1); 

SSMGSBLANK_FILL_DCB (.0CB COCB_W_NO.COLS], .START_INDEX); 

LINE _CHAR [.ROW] = 0; 


DONO UES WN “OC OONOUS WO 0an 


END; 


+ 
If erase_line_flag is set, blank out the Line before outputting the text. 


wnr— 


oP Se or oP ot at a? at ot ek ee ee eh hd drad ah ad ab ab ahah ab ab ahah od 


PPP IPIMINIS B&BS & LAWN WIIG NPINPNPNPINPPY 
= wow 
—rm 


SLSARAT SSS SSSRELISSELSA KAAS SANTO ISSS IS 


5 
TIED III III III at a a i a hh dh dd 
oo 


Be Se Se Se Se Se Gs Se Be Be Be Ge Ge Ge Ge Se Ge Se Ge Fe Ge Ge Ge Se Ge FHSS Ge Ge Se Se Se Se Se Ge Ge Se Se Se Se Se Se Ss Ge Se SHS 4 Oe Se Se Se Ge Se Seecsce 
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461 


SPELL LLL EEE 


" 
ISPLAY_CHA SMGSDISPLAY CHANGE = Virtual Display -- Changes 16- 
MGSPUT_CHARS = Put Text to Display” — = 


1+ 
' ALL Local va 
display buffer. 


'¢ 


16 


IF NOT NULLPARAMETER (ERASE LINE FLAG) AND 
. .ERASE_LINE_FLAG NEQ 

THEN 
BEGIN 
LOCAL 


START_INDEX; 
START INDEX = SSMGSLINEAR (.ROW, 1); 
SSNGSBLANK.FILL_DCB (.DCB COCB_W_NO_COLSJ, .START_INDEX); 


ca riables are set up. Call routine to put text into the 


DCB (DC 


B_W_CURSOR_ROW] = .ROW; 
d¢B CoCB-w 


C 
CURSOR-COLJ = .COL; 
! set current position for PUT_TEXT 


IF NOT (STATUS = SMGSSPUT_TEXT_TO_BUFFER ( .DCB, 


-STR_ADDR, 
IF NOT NULLPARAMETER (CHAR_SET) 
THEN ..CHAR_SET 
ELSE SMGS$C_ASCII )) 
THEN 
RETURN (.STATUS); 


! routines exactly what Line changed (so it can optimize), but if 


' encountered puny characters wh 
just pass a 0 (whi 


we 
ch a have changed more than 1 Line, 
ch will turn off optimization). 


BEGIN 
LOCAL 
SAVED_STRING_LEN, 
PRINT_LEN; 
SAVED_STRING_LEN = .STR_LEN; 
' side effect of macro is to change STR_LEN 
SSMGSFIND_PRINT_LENGTH (STR_LEN, .STR_ADDR, PRINT_LEN); 
1 macro to do SCANC 
A taal caae NEQ .SAVED_STRING_LEN 


ROW = 0; 
END; 


+ 
! Turn off scrolling. This change just moved the cursor to some 
random position. 


DCB COCB_V_FULL) = 0; 


Sep-1964 19:09:40 Smart esReSsmaDIscna 


a ee —— a 


| 1 
ISPLAY_CHA SPGSDISPLAY_CHANGE = Virtual Display == Changes 1S-se “1984 00:16:3 AX-11 Bliss-32 V4.0-7%4 P 
TR SMGSPUT_CHARS = Put Text to Disp 3 ° 12-801 38c 1 ‘08:40 ESMGRTL-SRe Shep} $iua682;1 sad CY § 
is 3 471 ‘e 
a ¢ of See if this change should be reflected on the screen. 
t "; © Ee 
: $ 475 RETURN (SMGSSCHECK_FOR_OUTPUT_DCB {.DCB 
3 gees 476 SHGEC PUT_CHARS, 
; 478 END; i End of routine SMGSPUT_CHARS 
OFFC 00000 ENTRY SHGSPUT CHARS, Save R2,R3,R4,R5,R6,R7,.RB.- =; 2187 
R9_R10,R11 : 
5E g¢ C2 99002 SUBL2 #12, SP ; 
bs 000 CLRL_  S$TR_LEN : 3315 
50 6C Q 3 00007 SUBB3 «#2, (AP), DIFF > 2334 
06 91 00008 CMPB) sé‘, #6 : 
08 1B 0000 BLEQU 1$ : 
50 000000006 8F p0 9901 MOVL #SMG$_WRONUMARG, RO ; 
50 04 BC DO $5018 1$ MOVL  @DISPLAY_ID, RO : 2336 
04 Cc 8 Ad 01 000IC CMPL 56(RO), SDISPLAY_ID ; 
06 12 00021 BNE ; 
| 1 44 Ad 91 000 ; CMPB 8(RO), #17 : 
| 08 13 000 BEQL a ; 
50 000000006 8F 00 00029 2s MOVL § #SMG$_INVDIS_ID, RO ; 
04 00030 RET ; 
57 04 BC DO 00031 3$ MOVL  § a@DISPLAY_ID, DCB : | 
0 08 AC 00 00035 MOVL _—TEXT, RO > 2343 
000000006 00 16 00039 JSB LIBSANALYZE_SDESC_R2 F 
| 04 AE 50 DO 0003F MOVL RO, STATUS ; 
6E 51 D0 00043 MOVL 1. (SP) : 
oc A 52 D9 0046 MOVL 2. 12(SP) ; 
0 04 AE : 004A BLBS STATUS, 4$ ; 
0152 31 0004 BRw 228 F 
03 6C 91 00051 4s: CMPBs«CAP), #3 > 2354 
10 Ff 90094 BLSSU ‘5$ ; 
oc ac 03 0056 STL —- 12 (AP) ; 
0B 13 00059 BEQL~=Sés«éSS ; 
oc BC d3 00058 TSTL © @LINE_NO : 2355 
96 13 0005E BEQLSts«é*SS ; 
56 oc BC 00 96960 MOVL §@LINE_NO, ROW : 2357 
4 11 00064 BRB ; 
56 28 «A? O38 90066 5$: MOVZWL 40(DCB), ROW : 3359 
04 6C 91 O006A 6$: CMPB (AP), a ; 1 
10 1F 0006D BLSSU ; 
10 aC D O06f TSTL 16 CAP) ; 
0B 13 00072 BEQL «Ss 7 ; 
10 BC 05 00074 TSTL 9COL_NO > 2362 
6 13 00077 BEQL ; | 
5B 2a AT 3 O07 7$: MOVZWL 42(DCB), COL : 2366 
7 56 5 00085 BS: TSTL ROW : 3368 
| 08 15 0008 BLEG ; 


be able CHA SM 


56 


58 


0012 


y <= Changes 18- se0~ 1984 99:08:28 


GSDISPLAY CHANGE = Virtual Displa 
SMGSPUT_CHARS = Put Text to Display 14-Sep-1984 
02 A? 10 087 CMPZV 
aS 9 ie 
50 000000006 &F BY 09 fF 9$: pave 
5 iT: 03 108: TSTL 
1 99 BLEQ 
06 A7 10 ; HY CMP2V 
BRA BGEQ 
50 00000000G BF D OA3 118: MOVL 
4 QOOAA RET 
O08 AE 2E AZ 9A QOOAB 128: MOVZBL 
06 ¢ 91 +4 CMPB 
A 1F 0008 BLSSU 
18 =#OA 8 00B5 TSTL 
05 13 00088 BEQL 
08 % 18 BC CB OQOOBA BISL2 
0 6C 91 OOOBF 138: CMPB 
OA 1F 000C2 BLSSU 
1c =6©AC «0S 0004 TSTL 
05 13 000C7 EQL 
08 AE 1c) =6BC.SCCCs «OOD XORL2 
08 6C 91 QOOCE 148%: CMPB 
1C 1F 00001 BLSSU 
20 AC D5 00003 TSTL 
17 13 000D6 BEQL 
04 © 00 20 BC CF 00008 CASEL 
0012 0012 0012 OO0DD 15$: «WORD 
0012 000E5 
50 00000000G 00 9€ 000E7 MOVAB 
04 OOOEE ET 
4C B746 95 OOOEF 168%: TSTB 
38 #13 pope BEQL 
50 FF A6 YE OOODF MOVAB 
51 06 A? 3C OOOF9 MOVZWL 
50 51 C4 OOOFD MULL2 
5A 50 00 00100 MOVL 
50 10 A? 00 00103 MOVL 
58 14 A? 7D 00107 MOVQ 
20 6€ 00 2C 00108 mMOVCS 
6A40 00111 
2— AZ 6E 00 2c Batis MOVCS 
6A48 O11A 
59 D5 OO1IC TSTL 
09 13 OO11E BEQL 
0 Mw 6E 00 2C 00120 MOVCS 
6A49 00127 
4C B746 94 00129 17%: CLRB 
05 gc 91 0012D 18$: CMPB 
—E 1F 001350 BLSSU 
14 AC » 001 § TSTL 
39 «1 Bat BEQL 
14 Bf 0 137 TSTL 
: 4 13 00135A BEQL 
50 FF AG YE 0013C MOVAB 


AX=-11 Bliss-32 V4.0-76 
CSMGRTL.SRCJSMGDISCHA.B52;1 


#16, 2(DCB), ROW 
#SMGS_INVROW, RO 
co 
11 
#0, #16, 6(DCB), 
#SMG$_INVCOL, RO 
46(DCB), REND_CODE 
(AP), #6 


COL 


24 (AP) 

@RENDITION_SET, REND_CODE 
AP), #7 

14$ 

28 (AP) 


14$ 


rts ie COMPLEMENT, REND_CODE 


> 

); 

0° 

TART_INDEX 

B), rox Bur 

8) R~BUF 

a HES 6(DCB), 
46(DCB), 6(DCB), 

TR st 


(SP), 48(DCB), 
AR _BU 

(DCB) CROW) 

», #5 


6(DCB), 


AP) 
ASE_LINE_FLAG 
R6), RO 


1B] —- MMB -OMmanaw—-wwoi-w w-—- 
ON DOW NOONT POAOOCO--— "ON BAO 


(START_INDEX)= 
(START_INDEX)~ 


(START_INDEX)= 
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(14) 


2371 


2374 


2377 


2384 


2399 


2404 


2405 


a 


2415 
2420 


SMGSDISPLAY. CHA 
7-04 


prweeneemcee 


06 A7 
06 A7 
06 A? 


5A 000000006 00 


52 


000000006 
04 


1 
0 
A 
f 
6€ 
6E 


NMWNROW WOuwuw 
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ooo 
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06 


10 
14 


oc 


00000000 


ee 
ay ~~ Changes 16-Sep-19 
“J . 1e-8ep-19 


A? 3¢€ 00140 
2} C4 00144 

9 4 147 

A 146A 
A7 7D 0014 

00 2C 0015 
6A4 S12 
00 2C QO15A 
6A48 0161 
59 re 016 
09 13 0016 
8 2c Bate 
6A4 8196 
56 BO 0017 
5B BO 00174 
6C 91 00178 
OA 1F 00178 
AC 0 0017D 
05 13 00180 
BC ODD bo 58 
02 11 0018 
01 DD 00187 
AE DD 00189 
AE DD 0018C 
af DD 0018F 

57 dd 00192 
05 FB 00194 
50 DO 00198 
AE €E8 0019F 
AE 00 001A3 
04 O01A7 

6E DO O01A8 
01 8E O01AB 
55 D4 OO1AE 
6€ 00 00180 
AE DO 00185 
6— D4 00187 
54 05 00189 
59 13 00188 
54 2A 001BD 
50 C3 001C6 
52 CO QOICA 
2§ CO 001CD 

52 CO 00100 
50 9 00103 
3E 13 00106 
61 9A 00108 
G0040 8F 00108 
tf O1E4 
00 § O1EC 
003 OO1F4 


19$: 


rr 
b adh od 


228: 
238: 


24%: 


25%: 


7 90: 16:28 AX-11 Bliss<-32 V4.0-74 
4 13:09:4 SMGRTL.SRCJSMGDISCHA.B352;1 
MOVZWL 6(DCB), R1 
MULL2 1, RO 
MOVL RO, START_INDEX 
MOVL 1eipcB), TEXT_BUF 
MOVO 20(DCB), ATTR_BUF 
MOVCS #0, (SPS. W352, 6(DCB), (START_INDEX)= 
mMovcS #0, (SP), 46(DCB), 6(DCB), (START_INDEX)= 
CATTR_BuUFJ 
TSTL CHAR_BuF 
EQL 19$ 
MOVCS #0, (SP), 48(DCB), 6(DCB), (START_INDEX)= 
CCHAR_BUF J 
MOVW ROW, 40(DCB) 
MOVW COL, 42(DCB) 
CMPB sé APS, #8 
BLSSU os 
STL 2 (AP) 
BEQL 20$ 
PUSHL @CHAR_SET 
I) 21$ 
PUSHL #1 
PUSHL STR_ADDR 
PUSHL STR-LE 
PUSHL REND_CODE 
PUSHL DCB 
CALLS #5, SMGSSPUT_TEXT_TO_BUFFER 
MOVL RO, STATUS 
BLBS STATUS, 23% 
move STATUS, RO 
MOVL STR_LEN, SAVED_STRING_LEN 
MNEGB #1, ALLONES 
CLRL PRINT LEN 
MOVL STR_LEN, BYTES_REMAINING 
MOVL STR_ADDR, IN_POINTER 
CLRL LEN 
iste BYTES_REMAINING 
SCANC BYTES REMAINING, (IN_POINTER), CHAR_TABLE, 
SUBL3. NEW BYTES REMAINING, BYTES_REMAINING, R2 
ADDL R2, IN_POINTER 
ADDL R2, PRINT_LEN 
ADDL Re, STR_LEN 
sith : W_BYTES_REMAINING, BYTES_REMAINING 
MOVZBL (ADDR_DIFF), RO 
CASEB HAR_TABLECRO], #1, #9 
- WORD 7$-25$,- 
7$-25$,- 
7$-25$,- 
St 5$,- 
8$- 5$,- 
ste 5$.- 
8$- 5$,- 
28$- 5$,- 
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1 
SDISPLAY_CHA SMGSDISPLAY_ CHANGE = Virtual Display -- Changes Ses =1984 00:16:3 AX-11 Bliss-32 V4.0-74 p 
Be, SMGSPUT_CHARS = Put Text to pisplay” ° 12-80 8-1 3c 90:08:28 ESMGRTL SRE SMGDISCHA.B52;1 age 488 
: 338° 
50 000000006 8F , 168 MOL #SMG$_FATERRLIB, RO : 
50 2A 47 36 6 i 268 MOVZWL Spee, RO ; 
59 é3 66 00206 DIVL2 #8, RO : 
09 A5S4 E 0 MOVAG 9(PRINT_LEN)CROJ, PRINT_LEN ; 
i D6 00 INCL STR_LEN : 
dg 0210 27$: INCL _—_IN_POINTER : 
4 DF 0 DECL YTES_REMAINING : 
3 D1 6 16 28$:  CMPL = PRINT_LEN, SAVED_STRING_LEN ; 2460 
2 13 0021 BEQL §©=_- 29 ; 
6 D4 00218 CLRL_ ROW > 2462 
34 OA? 1 8A 90 1D 29% BICB2 #1, 52(DCB) : 3068, 
6 0D 00 21 PUSHL ROW t 2677. 
1 DD 00 3 PUSHL #17 > 2675, 
7 DD d0¢ PUSHL oe ; 
090000006 00 3 FB 00207 CALLS #3, SMGSSCHECK_FOR_OUTPUT_DCB ; | 
04 0022E RET > 2478 
; Routine Size: 559 bytes, Routine Base: _SMGS$CODE + 0A91 


: 2231 2479 1 !<BLF/PAGE> 
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SPUT_LINE = Put Text to Display ne Mode 14-Sep-19 SMGRTL.SRCJSMGDISCHA.B32;1 9¢ 48) 


; 3 480 1 ZSBTTL ‘SMGSPUT_LINE - Put Text to Display in Line Mode’ 
: 481 1 GLOBAL ROUTINE S*GSPUT_LINE ( 
3 5 © ¢ 1 DISPLAY_ID, 
13 4 1 LINE_ADV, 
13 8 485 1 RENDITION_SET 
; 2039 486 1 RENDITION~ COMPLEMENT, 
: 2240 487 1 WRAP_FLAG; 
i 926] 488 ) _ CHARISET 
> 226 190 z 
13 44 491 1 !+¢ 
: 7 4 : FUNCTIONAL DESCRIPTION: 
: “3 4694 1! This routine is used to write Lines to the virtual display 
: 48 495 1! optionally followed by cursor movement sequences. SMGSPUT_LINE 
s 49 496 1! writes from the current cursor position to the end of the Tine. 
3 50 497 1! If the caller's text does not span to the end of the Line, blank 
; $e sie : fill is added. 
; $38 500 1: Treatment of text which exceeds the rightmost bounds of the 
i 2254 501 1! display depends on WRAP_FLAG. If WRAP_FLAG is set, Lines are 
; 2255 206 1! scrolled LINE_ADV times to make room for the overflow characters 
; $28 ah7 ' in the ‘next’ Line. If wrap is off, overflow characters are lost. 
: $26 505 1! Following a call to SMGSPUT_LINE, the internal display cursor 
: 59 208 } ! position is set to column 1 of the next Line where output should 
; 2260 507 1! occur. The next Line where output should occur is determined by 
; 2261 508 1! LINE ADV; LINE ADV defaults to 1 so that subsequent calls to 
; $06 44 : SMGSPUT_LINE will not cause overprinting. 
; 264 2311 i CALLING SEQUENCE: 
; $508 2518 : ; ret_status.wlc.v = SMGSPUT_LINE (DISPLAY_ID.rl.r, 
: 268 515 1 CT TNE ADV. rl. 
: 2269 516 1! »RENDITION_SET.rl.rJ 
: 70 Si7 17! RENDITION COMPLEMENT. rl.rJ 
> 2271 518 1 »WRAP_FLAG or Lr 
; $i¢ 444 : CHAR_SET.rl.rJ) 
; er $31 i FORMAL PARAMETERS: 
3 38 328 : DISPLAY_ID.rl.r Display id of virtual display 
: 78 325 TEXT. rt.dx Address of descriptor of output string. 
: $560 5 $ 1: LINE_ADV.rl.r Optional. Address of signed number of Lines 
3 238 : 3 : to advance after output. 
: HY 530 1! RENDITION_SET.ri.r Each 1 bit attribute in this parameter 
: 2284 +; 2 causes the corresponding attribute to 
; 2285 236 71 be set in the display. (See below for 
: 287 a4 : List of settable attributes.) 
: 2288 535 1 i RENDITION_COMPLEMENT.rl.r 
; 2289 536 1! Each 1 bit attribute in this parameter 
i 
! 
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T_LINE = Put Text to Display 


Ce et et ee ek ee et ee 


ARANLS SR VEO Re 


Line Mode 14-Sep-1 SMGRTL.SRCISMGDISCHA.B32;1 
causes pe el gs tay B 4 ppg to 

be complemented in the -% (See 

below for Azet of FM adie? 

attributes.) 


If the same bit is specified in both the RENDITION +H parameter 
and 0, the RENDITION_COMPLEMENT perancter. the appli cation is 
RENDITION_SET followéd by RENDITION complement. Using these two 
aarensnaet together the caller can exercise A hitb: and 
independent control over each attribute on g singie call. On an 


attribute 1 2 attribute basis he can cause the following 
transformation 

SET COMPLEMENT Action 

0 Sen Attribute unchanged. 

1 Attribute set to ‘‘on 

0 1 Attribute set to sonata of 

current setting. 
1 1 Attribute set to “‘off'’. 


Attributes which can be manipulated in this manner are: 


SMG$M_BL INK Tsptays: characters blinking. 
SMG$M_BOLD a - ~atheege! in higher-than-normal 


SMGSM_REVERSE ‘displays characters in reverse video -- that is, 
ab ing : Pas paces default rendition of the 
tua spla 
SMGSM “UNDERLINE. “diselays characters underlined. 


WRAP_FLAG.ri.r = 0 means no wrap 
= 1 means wrap 
If omitted, no wrap is the default. 


CHAR_SET.rl.r Opttenst. Character set to use. 
Choices are: 
SMG$C -UNITED KINGDOM 
SMG$C"ASCII Tdefault) 
SMGS$C_SPEC — HICS 


WAL 
SMG$C"ALT_GRAPHICS 


IMPLICIT INPUTS: 


NONE 


IMPLICIT OUTPUTS: 


NONE 


COMPLETION STATUS: 


WR CO OONOA UE WN 0 OONO UE WIN O OD NO UF WR 0 ODNOAUE WO LO NOUS WW OWaw 
ee a a a ee ae ee ee ee el el ce a a el el ce cl cel cel el el ll el ce el le ee lt lt ll el el el ce el ee 


OO OOD 00000000 000 00 0009 SI NINN SINS NSN NIAAA AAAAAAA MINIT 


PRIPIPIPPINPIPINPIPINPDPIPIPININININIPDAPIPOPINMOPONOPS PoP Nnonn 


SS$_NORMAL Normal successful conpletion 
SMG$_WRONUMARG thee F number (of combination of) arguments 
SMG$_ INVARG Negative LINE_ADV specified 
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3 2 610 
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; 2368 2615 
: 2369 616 
; 2370 617 
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i 3348 £30 
; ate: 62 

3 5378 $05 

: 77 M 2624 
3; 2578 M 2625 
3; 2379 M 2626 
3; 2380 M 2627 
; 2381 M 2628 
: 2382 M 2629 
: 2383 M 2630 
3; 2384 2631 
: 2385 63 

: 2386 63 

3; 2387 2634 
; 2388 635 
3; 2389 63 

: 2390 o 

: 91 638 
3; 239 639 
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; 595 642 
; 39 ror 
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3; 2401 648 
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DISPLAY CHANGE = Virtual Display == Changes 16-Sep-1984 00:16:3 AX-11 Bliss-32 v4.0- 
PUT_LINE = Put Text to Display tn ; 4 4 Ba 19:08:26 Sng 


: 
: 


1 
Line Mode 14-Sep-19 
LIBS_INVSTRDES Invalid string descriptor 


SIDE EFFECTS: 


+ 


NONE 


BEGIN 


BUILTIN 
NULLPARAMETER; 


LOCAL 
DONE, 
DCB : REF S$DCB_DECL, 


STR_LEN : INITIAL (0), 
STR-ADDR 


REND _CODE, 
WRAPPED_CHARS :INITIAL (0), 


Address of virtual display 

control block. 

Length of text string 

Address of text string 

Rendition code to use 

Number of chars that don't fit on 
the current Line 

Set by call to SMGSSPUT_TEXT_TO_BUFFER 
Flag to scroll up, down, or neither 
Set by SSMGSSET_SCROLLING 

Status of subroutine calls 


SCROLL_FLAG : INITIAL (0), 
STATUS; 
LITERAL 

K_SET_ARG = 4 

K-COMP_ARG = §; 


MACRO S$SCROLL_UP (COUNT) = 
SMGSSSCROLL_AREA (. 


B_0 No 


0) C L . 
, COUNT) %; 


SMG 
SSMGSVALIDATE_ARGCOUNT (2,7); 


SSMGSGET_DCB (.DISPLAY_ID, DCB); ! Get address of virtual display 
! control block. 


IF NOT NULLPARAMETER (LINE_ADV) AND 
ADV LSS 0 


HEN 
RETURN (SMG$_INVARG); ! positive advancing only 


: serees rendition code to use, based on whether one was provided by 
' caller. 
le 


SSMGSSET_REND_CODE (K_SET_ARG, K_COMP_ARG); 


SMGRTL.SRCJSMGDISCHA 


74 
-B52;1 
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$ ISPLAY_CHA SMGSDISPLAY CHANGE = Virtual Display -- Changes 1-se “1984 00:16:3 AX-11 Bliss-32 V4.0-74 Page 70 
ta SMGSPUT_LINE = Put Text to Display tn Line Mode 14-Sep-19 4 13:08:20 SMGRTL.SRC SGD! SCHA.B92:1 (15) 


3 re ¢ ° 1 } Get the Length and address of the text string. 

; Z IF NOT (STATUS = LIBSANALYZE_SDESC_R2 ( i ys 

; 408 655 STR-ADDA) ) 

: 24 $28 THEN 

; 2410 6 RETURN (.STATUS); 

: 2611 658 

: 2412 659 ‘+ 

3 418 660 ! If the previous Line written was the last Line in the display, we 

: 24146 661 ! did not scroll at the end of the operation. (This would've always 

3 2415 666 ! Left {he last Line blank - ocvees tyetr the wees would have one 
; ti$ rot less useabie line.) If we're at the bottom, scroll up one before writing. 
; 2418 665 !- 

3 2619 66 

3 : , rods SSMGSSET_SCROLLING (SCROLL_FLAG); 

; 24 ¢ 669 IF .SCROLL_FLAG EQL 1 

3; 24 670 THEN ! we're at the last Line in the display 
3; 2426 $07) BEGIN ! and display is full 

: 2425 67 IF NOT NULLPARAMETER (LINE_ADV) 

3; 2426 267 THEN 

3; 2427 674 4 BEGIN ! Ar present 

: 2498 2675 4 IF ..LINE_ADV GT 

: rh 3 ore 4 THEN ! positive Line advancing 

; 2430 2677 & 

: 2431 2678 & SSCROLL_UP (..LINE_ADV) 

; rh 2679 & 

; te 2680 4 ELSE : ate 

> 2634 2681 5 BEGIN ! Negative Line advance specified 

s 2435 Set 5 

3; 24356 $08 5 IF ..LINE_ADV LSS 0 

3 2437 684 5 

3; 2438 2685 5 RETURN (SMG$_INVARG); 

3: 2439 2686 5 ; 

3 2440 2687 5 END ! Negative Line advance specified 

: 2441 2688 4 END ! Arg present 

3 244 2689 4 3 

3 246 2690 3 ELSE ! Arg not present, default to 1 Line 

s 2664 2691 

5 a7 $09 SSCROLL_UP (1) 

: 2446 694 § END; ! we're at the Last Line in the display 
: 2448 695 

3 24469 696 § '¢ 

; 2450 697 ! Blank out the Line before writing new text. 

3; 2451 698 t= 

3; 245 699 

3; 245 700 BEGIN 

3 245 701 LOCAL 

3 439 20 START_INDEX; 

3; 245 704 START _INDEX = SSMGSLINEAR (.0CB COCB_W_CURSOR_ROW], .DCB CDCB_W_CURSOR_COL]); 
; 2458 P 2705 SSMGSBLANK_FILL_DCB ((.DCB COCB_W_NO-COLS) - 7pCB (pCB_w_CURSOR7COL) +71), 
; 7 108 -START_INDER); 
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GSDISPLAY_CHANGE = Virtual Display -- Changes rhs -Sep-1984 00:16:3 AX-11 Bliss-32 v4.0 Page 71 
SMGSPUT_LINE = Put Text to Display 1, Line Mode 14- ge07 138 90:48:28 SMGRTL.SRC SMGDISCHA. 5 2:1 . (15) 
7 END; 

a '¢ 

71 i Reset the line characteristics in case the Line was previously 

ns } _double high or wide. 

71 

714 

715 BEGIN 

ay IND 

4 ap LINE_CHAR = .DCB CocB_ A_LINE CHARI; 

8 LINE_CHAR : VECTOR C,BYTE]; 

, 9 LINE. THAR C.0CB CDCB_W_CURSOR_ROW]) = 0; 

7 

158 S14 

724 ' Move the text eerene into our virtual ribet | buffer. 

fh - Note the cursor position is already correct for the call. 

7 

728 IF NOT ( STATUS = SMGSS$PUT_TEXT_TO_BUFFER ( -0¢8. 

729 REND CODE, 

730 -STR_CEN 

731 STR ADDR, 

rag IF NT NULLPARAMETER (CHAR_SET) 

73 THEN ..CHAR_SET 

734 ELSE SMG$C_ASCII, 

735 WRAPPED. CHARS) 


THEN 
RETURN (.STATUS); 


'¢ 
! If all went well so far, we need to enter the <CR>,<LF> to form the 
end of Line. 


CCB CDCB_W_CURSOR_COLJ = ! Effect of <CR> 


'¢ 
Default to advancing one Line if LINE_ADV is omitted. 


IF NULLPARAMETER (LINE_ADV) 
THEN 


BEGIN Pe | adv omitted 
fet -DCB CDCB_W_CURSOR ROW] + 1 LEQ at COCB_W_BOTTOM_OF _SCRREG) 


advance cursor row fen next Line 
soca toca. W_CURSOR_ROW] = .DCB CDOCB_W "CURSOR ROW] + 1 
BEGIN 
SSMGSSET SCROLLING (SCROLL_FLAG); 
en CROCL_FLAG EQ. 1 
gee CDCB_W_CURSOR_ROW] NEQ .DCB CDCB_W_BOTTOM_OF _SCRREG] 


zz | 


~~ eee ee ee ee ee ee RR ee ee Oe ae Oe a a, 


Sr, SARS REGAINS ele inte MR Re awh ae SiR Ee — 


IF ..LINE_ADV GTR 0 
THEN 


BEGIN yee gee ine re wegtes 
IF at | B tbe W_CURSO ok ROW gehiMe_A DV LEQ 


DCB_W-BOTTOM_OF _SCRREG 


ISPLAY_CHA SMGSDISPLAY CHANGE - Virtual Display -- Changes 16-Sep-1984 73 AX-11 Bliss-32 V4.0-7 P 7 | 
Fm td SMGSPUT_LINE = Put Text to Displey tn Line Mode 16-Se0-1984 9: 08; ig SMGRTL.SRC SHEDISCHA.B 231 age 455 ; 
18 765 SCROLL_U ! scroll_if within scrollin cegien 
1 i if a DCB_W CURSOR how) LEQ .0CB COCB_W_BOTTOM_OF _SCRREG 
res pce B COCB_W URSOR ROW) = .0CB [DCB_W_BOTTOM_OF _SCRREG); 
8 pcB CocB_v_FOLE 1;~! remember that we used last” Line 
rf = 
4k END ! Line_adv omitted 
774 '¢ 
of? & Take care of the requested Line advancing. 
56 
re ELSE 
44 EGIN ! Line adv specified 
r 
83 
84 
85 
86 


t advance cursor row numbe 


3 

4 787 bc wate W_CURSOR_ROW) = .DCB foce. W_CURSOR_ROW] 

4 788 + ..LINE_ADV 

4 789 ELSE 

4 790 BEGIN ! scrolling u 

4 791 SSMGS$SET_SCROLLING (SCROLL OF LAG) ; 

r IF SCROLL. FLAG EQL 1 

‘ A CDCB_W_CURSOR_ROW] NEQ .DCB CDCB_W_BOTTOM_OF_SCRREG) 
4 


SSCROLL_UP (..LINE_ADV); ! scroll if w/in scroll cogten 
ei -DCB CDCB_W_CURSOR_ROW)~LEQ ‘DCB CDCB_W_BOTTOM_OF _SCRREG 


~ 
o 
™~ 


'¢ 
i uf pres ing was requested and some characters overflowed the Line, 
; call ourself 


tah Ab Ab Ah Ab ah Ah beth Ab ab-th ahh ah oh dh Oh 4h 4h oh Ah 4h dh 4h hb hk eh hh ah 4h eh Ak 


AAD MMANUNINAUITUTU7 


w tw l al al alsal 
PAADAMAM MUI 

~~ AOA 
ou SSRs ae 
ROPOPIPIPIPONIPOPOPIPOPOPONY 


again with the remainder of the characters. 


7 

8 dcB CDCB_W —T ROW] = .DCB CDCB_W_BOTTOM_OF _SCRREG); 
8 pce CocB_V_FOLC) = 1;7! remember that we-used Last™line 

8 END ' “scrolling up 

END; ! upspace action 

: END; ! Line_adv specified 

8 

: 


Ooooooo°oeo 


WR 0 OO NO UV FWP OODNA MEWS OOONA FW —"OOONOUFWwNn OO 
=O ODONOA UE WAR "CO OOWO UN EWN 0 0@ 


IF .WRAPPED_CHARS NEQ 
((NOT NUCLPARAMETER 
eee LL PARAMETER (LINE_A 


OA 


AND 

ie E_ADV) AND ..LINE_ADV GTR 0) OR 
BEGIN ' overflow chars 
IF (NOT wie 'ge AME pr (WRAP_FLAG) AND 


AMET 
..WRAP_FLAG NEQ 0 
THEN 


wo 
m 
a 
— 
2 


wrap set - recurse w/overflow 


POPOPOPORIPIPIPOPIPIPO PPO PNP POP POPOPPY 
i i i ie | 
oovono 
ws 
BPP FB UIAGPINIDINIPYDDID HWE TTT UT UT TUT TUT BB BB BB NAIA WWIII BBB 


0 00 09 0000 09 00 00 C0 OD OD CD 
RMR — 232 ee eo 


STR_DESC : BLOCK (8, BYTE), 
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SDISPLAY_CHA SMGSDISPLAY_CHANGE = Virtual Display -- Changes 1bese -1984 00:16:3 AX-11 Bliss-32 V4.0-74 fe 73 
Ft SMGSPUT_LINE = Put Text to Display tn Line Mode 12-808 -1 984 99:08:28 SMGRTL.SRCISMGDISCHA.B52;1 29° 45) 
; T? § 2 C_SET; 
3 8 4 4 STR_DESC pecee CLASS] = DSCSK_CLASS_S; 
; 257 5 4 STR_DESC [DSCSB_DTYPE] = DSCSK_DTYPE_T; 
; 257 $ 4 STR_DESC LDOSCSW_LENGTH] = .STR_LEN = .0CB foes W_NO_COLS); 
; $81 5 2 STR_DESC CDSCSA_POINTER] = .STR_ADDR + .DCB ptB-w_NO_COLS$); 
: 258 9 4 C_SET = SMGSC_ASCII; 
; 384 0 4 IF NOT NULLPARAMETER( CHAR_SET ) 
; 2586 1 4 THEN 
s aj =o. 3 
585 8 ? C_SET CHAR_SET 
3 289 5 4 4 SMGSPUT_LINE (.DISPLAY_ID, 
; 2588 5 4 STR_DESC, 
; 2589 836 4 -LINE_ADV, 
; 2590 837 4 -RENDITION_SET 
3 2591 838 4 ~RENDI TION” COMPLEMENT, 
; 236 839 4 ~WRAP_FLAG, 
; 259 840 4 : 
: $e Shee RETURN 13 + bn hecp Otten th 
3 : ! to kee ss ha 
3; 2596 ope 4 END ! wrap om ~ feeuran’ uiaeiethes 
3; 2597 sete 3 ELSE 
; 2598 845 4 BEGIN ! wrap not set = truncation 
3; 2599 seco 4 '¢ 
; 2600 847 4 : Wrap was not requested but there were overflow characters. 
3 yet soee ; Put out diamond in Last position to show truncation. 
5 $e08 2850 4 IF .DCB CDCB_V_TRUNC_ICON] 
3 2604 ath 4 THEN 
3; 2605 o2¢ 5 BEGIN 
3; 2606 285 5 IF NOT .DCB COCB_V_FULLIJ 
3; 2607 2854 2 THEN 
; 2608 2855 DCB CDCB_W_CURSOR_ROW] = .DCB CDCB_W_CURSOR_ROW] - 1; 
; _ -OLJ =. _W_NO_COLSJ; 
ye $peo : DCB CDOCB_w_CORSOR_COLJ pcB (OCB 6 fois) 
3; 2611 sees 5 SMGSSPUT_TEXT_TO_BUFFER (.DCB, 
3; 2612 859 5 »REND_CODE + ATTR_M_USER_GRAPHIC, 
3: 2613 2860 5 1, UPCIT (BYTE (DIAMOND), 
: oi? see! : SMG$C_ASCII); 
3; 2616 2865 5 IF NOT .DCB COCB_V_FULLJ 
3 2617 864 5 H 
3; 2618 ae? 5 DCB CDOCB_W_CURSOR_ROW] = .DCB COCB_W_CURSOR_ROW] + 1; 
3; 2619 66 5 ' restore for next call 
3; 2620 867 5 DCB CDOCB_W_CURSOR_COL] = 1; 
r eh 868 4 END; 
; 26 ; 869 4 
; o¢ 870 4 DONE = 1; ; 
3 2624 871 ; END; ! wrap not set - truncation 
3 2625 a76 END 
3 o<6 87 ELSE 
3; 26 874 DONE = 1; ' no wrap chars 
; 2628 87> 
: $6 3 A i" f this ch hould b fl d h 
; 26 ! See if this change shou e reflected on the screen. 
3 ' Even if we ca ! again, _FOR_ 2 
631 878 i ¢€ f LL SMGSPUT_LINE SMGSSCHECK_FOR_OUTPUT_DCB 
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ISPLAY_CHA SMGSDISPLAY CHANGE = Virtual Display == Changes 16-Sep-1984 00:16:3 AX-11 Bliss-32 V4.0- P 74 
SMCSPUT LINE > Put Text to Display tn Line Rage 1eekee19ne $eiosien — Fenont SaeSsneplscua 29° 45) 
¢ i } should be called only once. 
¢ IF .DONE 
THEN 
4 BEGIN 
5 LOCAL 
§ LINE_CHANGED; 
ra LINE_CHARGED = .0CB CDCB_W_CURSOR_ROW] (IF NOT NULLPARAMETER (LINE_ADV) 
B88 ‘ THEN ABs (. .LINE_ADV) 
890 i RETURN (SMGS$CHECK_FOR_OUTPUT_DCB (.DCB ; 
2891 4 SMG$C_PUT_LINE 
89¢ -LINE- CHANGED) 5; 
89 END 
894 ELSE 
se56 RETURN 1; 
897 1 END; ! End of routine SMGSPUT_LINE 
60 OOCCO P.AAB: .BYTE 96 3 
OFFC 00000 .ENTRY SMGSPUT LINE, Save R2,R3,R4,R5,R6,R7,RB_R9,-; 2481 
5E 24 C2 0000 SUBL2 #36, SP ; 
E D4 0000 CLRL.  STR-LEN + 2601. 
18 AE D4 00007 CLRL § WRAPPED_CHARS : | 
7E D4 OOOOA CLRL_  SCROLL_FLAG ; 
50 6C 98 83 0000 SUBB2 #2, (AP), DIFF : 2633. 
05 91 0001 CMPBséOdLFF, #5 ; 
08 1B 0001 BLEQU ; 
50 000000006 8F D0 0001 MOVL § #SMG$_WRONUMARG, RO F 
04 0001C RET : 
50 04 BC DO 9001p 1$: MOVL  @DISPLAY_ID, RO > 2635 
06 BC 8 AO D1 00021 CMPL  56(RO), SDISPLAY_ID ; | 
06 12 99 6 BNEQ  2$ F 
11 44 AO 91 00028 CMPB 8(RO), #17 : 
08 13 0002C¢ BEQL : 
50 000000006 &F v6 00 E 2$: MOVL #SMGS$_INVDIS_ID, RO ; 
56 04 Bc dO 8 3$: MOVL  @DISPLAY_ID, DCB F 
03 6C 91 O0003A CMPBs«CAP), #3 > 2638. 
OA 1F 00030 BLSSU 4 ; 
Oc AC DS 0003F TSTL  12¢AP) ; 
05 1 O02 BEQL «= 4 F 
0c gC D5 0004 TSTL  @LINE_ADV > 2639 
€ 19 9047 BLSS t ; 
i 2E Ab 9A 00049 48 MOVZBL 46(DCB), REND_CODE > 2648 
04 ¢ 91 O04E CMPB (AP), #4 : 
A 1F 0005 BLSSU  -5$ ; 
10 AC 05 00053 TSTL  16(AP) ; 
05 1 00 6 BEQL 6 55$ ; 
16 AE 10 BC C8 000 BISL2 @RENDITION_SET, REND_CODE ; 
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SMGSPUT_LINE = Put Text to Display 
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ISPLAY_CHA SMGSDISPLAY CHANGE = Virtual Display <= Changes Ibse -1986 00:16:3 AX-11 Bliss-32 v4.0-74 Page 7 
his SMGSPUT_LINE = Put Text to Display Tn Line Mode 1 matt 1 90: 38:28 YOMGRTL SRCTSMGDISCHA.B 2:1 9458 
A B 3¢ 0011 MOVZWL (R11), R10 : 
| aA 1 Z 1 SUBL2 1, R10 ; 
| b B6 1 INCL RI : 
| SA 20 6E “ mT ¢ 3 MOVCS #0, (SP), #32, R10, @START_INDEXCTEXT_BUF] ; 
SA 2E AG 6E 09 2c 001 p MOVCS #0, (SP), 46(DCB), R10, @START_INDEX- ; 
08 BES 01 CAfTR BUF) : 
58 0 01 TSTL CHAR_BuF : 
09 1 91 BEQL 15$ : 
SA 30 Ab 6 2C 0013A MOVCS #0, (SP), 48(DCB), R10, @START_INDEX- : 
08 BES 9140 CCHAR BUF ; 
50 ‘ 3 14 15$:  MOVZWL (R7) : 2720 
0 a f 146 ADDL2 76(D¢B), RO : 
60 94 O014A LRB (RO) : 
1C «AE OF 0014C PUSHAB WRAPPED CHARS : 37 8 
07 6C 91 OO14F MPB (AP), : 2732 
OA iF 0132 BLSSU-16$ : 
1¢ =a d 0154 TSTL  28(AP) : 
05 13 00157 BEQL 16$ : 
1¢ BC DD 00159 PUSHL @CHAR_SET : 2733 
02 11 0015¢ BRB 17$ : 
01 DD 0015E 168: PUSHL #1 : 2732 
AE DD 00160 17$: PUSHL STR_ADDR + 2731 
10 AE DD 0016 PUSHL STRTLEN > 2730 
AE DD 00166 PUSHL REND_CODE 3 2729 
: 56 DD 00169 PUSHL DC : 2728 
000000006 00 06 FB 00168 CALLS #6, SMGS$PUT_TEXT_TO_BUFFER : 
10 AE 50 DO 00172 MOVL RO. STATUS ; 
95 10 AE €E8 00176 BLBS STATUS, 19$ ; 
0 10 AE DO 0017A 18$:  MOVL STATUS. RO : 2737 
04 0017E RET : 
2A AG 01 80 0017F 19$: MOVW #1, 42(DCB) > 2745 
03 6C 91 00183 CMPB (AP), #3 + 2751 
OS 1F 00186 BLSSU 2 : 
Oc aC DS 00188 TSTL 12 (AP) : 
64 12 00188 BNEG 5$ : 
50 7 3C 0018D 208:  MmOVZwL (R7), RO + 2754 
0 D6 00190 INCL RO : 
50 4A A 10 00 ED 00198 CMP2v #0, #16, 74(DCB), RO : 
04 19 0019 BLSS =. 218 : 
67 B6 0019A INCW = (R77?) : 2757 
6A 11 0019¢ BRB 26$ : 
6E D4 00196 218: CLRL SCROLL_FLAG : 2760 
14 Oc BE €9 OO1A BLBC ai2(SPY, 23 : 
6A A 67 Bi OO01A4 CMPW (R7), 74(DCB) ; 
05 if 1A8 BNEQ 22$ ; 
6E 01 »D OO1AA MOVL #1, SCROLL_FLAG ; 
09 11 OO1AD BRB 23§ ; 
48 Ab 67 B1 OOIAF 22% CMPw = (R7), -72(DCB) : 
03 if O13 BNEQ 23% : 
6E 02 pO 0018 MOVL #2, SCROLL FLAG : 
01 6— D1 00188 238:  CMPL SCROLL_FLAG, #1 : 2761 
2C 12 001BB BNEQ 24$ ; 
| 6A AG 67 81 0018D CMPW =s«(R7), -74(DCB) > 2763 
6 13 001C1 BEQL 24$ ; 
1 oD O13 PUSHL #1 > 2765 
| 1 DD O01C PUSHL #1 : 
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MGSDISPLAY_CHA SMGSDISPLAY CHANGE = Virtual Display <= Changes ibese -1984 00:16:3 AX-11 Bliss-32 v4.0-74 Pp 77 
‘ots SMGSPUT_LINE = Put Text to Display In Line Mode 1a-Sep-19 4 90: 08:2 SMGRTL.SRCISMGDISCHA.B32;1 age 45) 
| ze 6B 3¢ gic? mOVZuL (Rit) -(SP) ; 
4A AG 3C OOICA MOVZWL 74(DCB), RO : 
1 48 AG § git MOV2WL £e(DCB), R1 : 
0 51 1D UBL2. RI, R : 
01 AO 9F 0010 PUSHAB 1(RO) : 
7E 04 AG 3C 00108 MOVZWL 4(DCB), =(SP) : 
E 48 A6 3C 0010 MOVZ2WL 72(DCBS, =(SP) : 
36 DD OO1E PUSHL oC : 
000000006 00 07 FB OOIE CALLS @ SMGS$SCROLL_AREA : 
6A AG 67 Bi OO1ES 24$: CMPW (R?), 74(DCB) : 2766 
C 1B OO1ED BLEQU 313 : 
6— 11 OIE BRB 2$ : 2769 
50 OC BC DO OO1F1 258 MOVL aL INE_ADV, RO + 2780 
6¢ 15 OO1FS BLE 33$ : 
51 67 3C OO1F MOVZWL (R77), RI + 2783 
1 50 CO OO1FA ADDL2 RO, R : 
51 6A AG 10 00 €D o01FD CMP2V #0, #16, 74(DCB), R1 + 2784 
05 19 0020 BLSS 7$ : 
67 50 ad 00205 ADDW2 RO (R7) : 2788 
59 11 00208 268: BRB $ > 2787 
6E D4 0020A 27S: CLRL SCROLL_FLAG : 2791 
14 Oc BE E9 0020¢ BLBC ai2(SPT, 298 : 
4A A 67 B81 00210 CMPW (R7), 74(DCB) : 
05 12 00214 BNEQ 28$ : 
6E 01 00 00216 MOVL #1, SCROLL_FLAG ; 
09 11 00219 BRB 298 : 
48 Ab 67 B1 0021B 28$ CMPW (R7), 72(DCB) : 
03 12 O021F BNEQ 9$ : 
6E 02 D0 00221 MOVL #2, SCROLL_FLAG ; 
01 6E D1 00224 29% CMPL SCROLL_FLAG, #1 3 2792 
2C 12 00227 BNEQ 30 : 
4A AG 67 B1 00229 CMPW (R7), 74(DCB) : 2794 
26 13 0022D BEQL 30$ ; 
50 DD Oger PUSHL RO : 279% 
01 DD 00231 PUSHL #1 : 
7E 6B 3C 00233 MOVZWL (R11), =(SP) : 
50 4A A6 3C 00236 MOVZ2WL 74(DCB), RO : 
51 48 AG 3C 0023A MOVZ2WL 72(DCB). R1 ; 
50 51 C2 0023€ UBL2. R1, RO ; 
01 AO 9F 00241 PUSHAB 1(RO) : 
7E 04 AB 3C 002446 MOVZWL 4(DCB), -(SP) ; 
7E 48 Ab 3C 00248 MOVZ2WL 72(DCBS, =-(SP) F 
56 DD 0024C PUSHL DCB ; 
000000006 00 07 FB 99 4 CALLS #7 SMGSSSCROLL_AREA : 
4A A 67 B81 00255 30S: CMPW (R?), 74(DCB) : 2797 
04 1A 00259 BGTRU 32$ ; 
67 4A A6 BO 00258 31S: MOVW 74(DCB), (R7) > 2799 
OC BE 01 88 025F 8: BISB2 #1, al2(SP) > 2800 
1C AE D5 00263 33$: TSTL | WRAPPED_CHARS > 2811 
9 12 00266 BNEQ 35$ ; 
009F 31 99 68 348: BRW 42$ : 
03 6C 91 00268 35$: CMPB (AP), #3 > 2812 
OA 1 00 $ BLSSU 368 : 
Oc AC b3 0 TSTL 12(AP) : 
05 13 0027 BEQL 36$ ; 
0c BC 05 0027 TSTL LINE _ADV ; 
OA 14 00278 BGTR 37% ; 
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ISPLAY_CHA SMGSDISPLAY CHANGE = Virtual Display -- Changes 16-Sep-1984 00:16:3 AX-11 Bliss-32 V4.0-74 
SMGSPUT_LINE = Put Text to Displey th Line Mode 12780871382 90: 48:28 SMGRTL.SRC Shep \ sina B42: 1 
03 91 7A 36$: CMPB (AP), #3 
§§ 1F 7D BLSSU ss «:37$ 
oc ac p 8 7F TSTL 12 (AP) 
E4 2 BNEQ 34$ 
06 6C 91 00 37$: CMPB (AP), #6 
4C if 7 BLSSU 9$ 
18 AC rt} 9 TSTL 4 (AP) 
47 (1 8C BEQL 9S 
18 4) oe O28E TSTL GuRAP_FLAG 
42 13 00291 BEQL 9$ 
6 AE O10E ~=saBF Bp 0293 MOVW #270, STR_DESC+2 
24 «AE 4 AE 68 A 99 99 SUBW3 = (R115, STR_LEN, STR_DESC 
5 6B 3C 0029F MOVZWL (R11), R 
28 OAL 18 BE4O 4 00 Ag MOVAB a@STR_ADDRCROJ, STR_DESC+4 
20 COA 01 DO 002A MOVL #1, CSET 
0 6C 91 OO2AC CMPB (AP), "# 
OA 1F OO2AF BLSSU $ 
1c AC b 00281 TSTL 8 (AP) 
05 1 poses BEQL 
20 AE 1¢ BC DO 00286 MOVL @CHAR_SET, C_SET 
20 AE OF 002BB 38S: PUSHAB C_SET 
7E 14 AC 7D OO2BE mova RENDITION_COMPLEMENT, =(SP) 
7E Oc AC 7D 002C2 MOVa LINE_ADV, =(SP) 
38 AE OF 002C6 PUSHAB STR_BESC 
04 DD 002C9 PUSHL DISPLAY_ID 
FD2F CF 07 FB O02CC CALLS #7, SMGSPUT_LINE 
52 04 00201 CLRL DONE 
67 11 00203 BRB 45$ 
2F Ab 01 €1 00205 398: BBC #1, 47(DCB), 428 
02 OC BE £8 OO2DA BLBS ale(sP), 40$ 
67 87 O02DE DECW (R7) 
2A AG 6B B80 O02E0 40$: MOVW (R11), 42(DCB) 
01 DD 002E4 PUSHL #1 
FD15 CF 9F OO2E6 PUSHAB P.AAB 
01 DD OO2EA PUSH i 
20 AE 000000460 8F C1 OO02EC ADDL #64, REND_CODE, RO 
50 DD 002F5 PUSHL R 
56 DD 002F7 PUSHL DCB 
000000006 00 05 FB 002F9 CALLS #5, SMGS$S$PUT_TEXT_TO_BUFFER 
02 0c BE EB 00300 BLBS ale(SP), 41$ 
: 67 B6 00304 INCW (R7) 
2A Ad 01 BO 00306 41$: MOVW #1, 42(0CB) 
52 01 DO OO30A 42$: MOVL #1, DONE 
2c 52 9 60308 BLBC DONE, 45$ 
03 6C 91 0031 CMPB AP), #3 
10 1F 0031 BLSSU  _43$ 
Oc AC D5 0031 TSTL 12 (AP) 
0B 13 00318 BEQL 4 
50 Oc BC DO OO31IA MOVL @LINE_ADV, RO 
07 18 OO3IE BGEQ 44$ 
50 50 CE 00320 MNEGL RO, RO 
02 11 003 BRB 44$ 
29 Be 0 43$: CLRL RO 
51 6 C 00 44$: MOV2WL (R7), R1 
51 50 C3 44 4 SUBL3 RO, R1, LINE_CHANGED 
50 DD +143 PUSHL LINE_CHANGED 
12 DD 00 PUSHL #18 
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| SAREE ISPLAT CHA SMGSDISPLAY CHANGE = Virtual Display -- Changes 1$-3e0=1 386 90: 16:38 AX-11 Oi legen V4.0-74 Page 80 
| - SMGSPUT_WITA_SCROLL = Scroll virtual display an 14-Sep-1984 13:09:4 SMGRTL.SRCJSMGDISCHA.B52;1 (16) 
; 2653 344 1 ZSBTTL "SMGSPUT WITH SCROLL = Scroll virtual display and output’ 

; 2654 O 1 GLOBAL ROUTINE SMGSPOT_WITH_ SCROLL ( 

; 2655 901 1 DISPLAY_ID, 

; 26 § 902 1 STRING 

; 26 903 1 DIRECTION, 

; 2658 904 1 RENDITION_SET 

; 2659 905 1 RENDITION~ COMPLEMENT, 

3 6) 906 1 WRAP_FLAG, 

; 1 907 1 CHAR_SET 

; 666 908 1 d= 

; 266 909 1 I++ 

; O68 319 : FUNCTIONAL DESCRIPTION: 

; 2666 a ee This routine scrolls a virtual display, if necessary, and deposits 

; 2667 oat a = the string in the opened area. If no string is specified, the opened 
; 2668 914 1! Line is left blank. This routine imitates a peyeceat scrolling region 
; 2669 13 33 in a virtual display; scrolling occurs when all the Lines in the 

; 2670 916 1! virtual display have been filled. A new Line is opened at the bottom 
; 2671 917 1! of the virtual bin 5 for upscrolling, and at the top of the virtual 
3 ore 4 . display for downscrolling. 

; 2674 $936 7 7 Treatment of text which exceeds the eteitaces boundary of the display 
; 2675 $353 1 3 depends on the setting of WRAP_FLAG. If WRAP_FLAG is on, another Line 
; 2676 9 ; i scroll occurs and overflow characters are written in the new space. 

3 core $3 ? : If WRAP_FLAG is off, overflow characters are lost. 

; 2679 $3 > 3% The internal display cursor position is left at the character 

; soe $3 $ ' } position following the last character written. 

: se e928 1! See SMGSINSERT LINE for sgeerting Uiees at locations other than the 

: 268 $3 . 44 first or Last Tine of a virtual display. 

; 2684 930 1! 

; eH 23 1 : } CALLING SEQUENCE: 

; 2687 338 7% ret_status.wic.v = SMGSPUT WITH_SCROLL ( 

; 2688 2934 1! ISPLAY-ID.rl.r 

3 2689 2935 1! /STRING.rt.dxJ 

3; 2696 2936 1! DIRECTION. rlu.r) 

; 2691 sete 1! »RENDITION_SET.rl.rJ 

; 269 938 1! RENDITION _ COMPLEMENT. rl.rJ 

; 269 2939 1! »WRAP_FLAG. rl .rJ 

3; 2694 940 1! »CHAR_SET.rl.rJ) 

3; 2695 941 1! = 

3; 2696 942 1 ! FORMAL PARAMETERS: 

; 2697 945 1! 

3; 2698 944 1! DISPLAY_ID.rl.r Display id of desired virtual display. 

3: 2699 Seee ie a 

; 2700 946 1! STRING. rt.dx Optional. String to be deposited in the opened 
3 44 rt : ; Line. If omitted, a blank Line is the default. 
3; 270 949 1! DIRECTION. rlu.r Optional. Direction to scroll. Values: 

: 2704 950 1! SMGSM_UP (up) Default 

: 2705 951 1! SMG$M_DOWN (down) 

3 708 926 7 3 i : . : 

; 270 > 7? RENDITION_SET.rl.r Optional. Each 1 bit attribute in this. 

3; 2708 954 1! parameter causes the corresponding attribute 

; 2709 955 1! to be set in the display. (See below for 
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74 Page 81 
SMGSPUT_W1TA_SCROLL - Scroll virtual display an 14-Sep-1984 SMGRTL.SRCISMGDISCHA.B52;1 . (16) 


| 
; rg g § ! } List of settable attributes.) | : 2 
3 ne 9 3 = RENDITION_COMPLEMENT.rl.r 13 2, 
3; e7)1 g Optional. Each 1 bit attribute in this. je 2 
: e716 960 1! parameter causes the corresponding attribute 1s 2. 
: 2715 961 1! to be complemented in the He 4 pga (See 1 2, 
ls ay 962 1! below for List of complementable 12 2. 
3; 27) 965 1! attributes.) ° 2. 
: 2718 964 1! ‘ 2, 
; 2719 965 1! If the same bit is specified in both the RENDITION SET parameter + 2, 
; 2720 966 1! and in the RENDITION_COMPLEMENT Sereneter the application is + 2. 
; 2721 967 1! RENDITION_SET followed by RENDITION complement. Using these two - 2, 
; e? § 966 1! parameters together the caller can exercise arbitrary and - 2, 
3 ar 969 1! independent control over each attribute on a sinete call. On an : 2. 
3: 27246 970 1! attribute by attribute basis he can cause the following 2 | 
3: 2725 971 1! transformations: > 2 
: 2726 46 = eg. 
3 e727 344 7 SET COMPLEMENT Action : 2 
; 2728 9746 1: ne eaummntidaes - : 2. 
3 2729 2975 1! 0 0 Attribute unchanged. | : 2, 
; 2730 2976 1! 1 Attribute set to ‘‘on a 
; 2731 977 1! 0 1 Attribute set to complement of 2 
: rag 978 1! current setting. 2 
; 273 979 1! 1 1 Attribute set to ‘‘off'’. ; 2. 
3 2734 980 1! 2 2. 
3 ae 981 1! : - 2, 
3 P38 + : Attributes which can be manipulated in this manner are: + 2! 
; $F34 984 1! SMG$M_BLINK gepters characters blinking. 3 : 
3 soin 2985 1! SMGSM_BOLD displays characters in higher-than-normal : 2 
; 2740 706 1: ntensity. : ; + 2 
3 2741 987 3 3 SMGSM_REVERSE Sisters characters in reverse video == that is, + 24 
; oe} 988 1! using t a eopes tte default rendition of the + 24 
; sre 989 1! virtual display. ; 3 
+ 2764 2990 1! SMGSM_UNDERLINE displays characters underlined. : : 
: sie? 2991 1! ; 2 
i: 2746 992 1! 24 
3 2747 993 1! WRAP_FLAG.rl.r Optional. s 2: 
: 2748 994 1! = Q means no wrap : 3 
; $reR 995 1! = 1 means wrap 3 : 
3 P30 4 : If omitted, no wrap is the default. : 2 
. . ( 
; 3782 998 1! CHAR_SET.rl.r pot ienet. Character set to use. ‘ 2 
: Pe 999 1! Choices are: : 2 
2 27546 000 1! SMG$C_UNITED_KINGDOM * 2 
: 2755 001 1! SMGSC"ASCII Tdefault) a 
E 756 002 1 | SMGSC~SPEC_GRAPHICS : 3, 
3 2757 003 1! SMGSC_ALT_CHAR : 3 
|; 2758 006 1: . SMG$C_ALT_GRAPHICS 2 2 
; 2759 00$ 1! - 2 
; 2760 B08 1 ! IMPLICIT INPUTS: ; 2 
3 2761 007 1! : 2 
3 766 43 1? NONE + 2! 
3: 276 009 1! : 2 
3 2764 010 1 ! IMPLICIT OUTPUTS: : 
: 2765 011 1! : 
; 2766 O12 33 NONE : 
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ot ISPLAY_CH/ SMGSDISPL 1 
| SMGSPUT_WITR_SCROLL = Scroll virtual display-an 14- SMGRTL.SRCISMGD!SCHA 
; 2767 3013 13 
E 768 14 1 | COMPLETION STATUS: 

4 1 . 
3 e7 y 1 1} SS$ ns Bormel successful completion 

; ef7 ae Ee LIBS_INVSTRDES Invalid string descriptor 

:; 277 8) 73 SMGS_INVDIS_ID Invalid display id. 

3 277 19 1! SMG$_WRONUMARG Wrong number o erguaents. 

: 2774 0 or ACTION is given but RENDITION is not. 

:; 2775 Oe) 1 | SMGS$_INVARG Unrecognized action code 

; a ; ¢ : } or Unrecognized rendition code 

: 7? 4 1 ! SIDE EFFECTS: 

i e7?7 6 ee 

; 2780 0 § 7: NONE 

: 2781 0 1 !== 

; 278 028 BEGIN 

; 278 029 

3; 2784 m 3050 MACRO SSCROLL_UP (COUNT) = 

; 2785 mM 3031 SMGSSSCROLL_AREA (.DCB, 

: 2786 m 30 4 -DCB COCB_W_TOP_OF SCRREGI, 

: 2787 m 30 -DCB COCB-W"COL-STARTJ, 

: 2788 m 3034 (.0CB COCB_@_BOTTOM_OF SCRREG) - 

; 2789 m 3035 OCB COCB-WTOP_OF SCRREG] + 1) 

; 2790 M 3036 -0CB COCB_@_No cOLST, 

5 a4 4 : SMGSM_UP, COUNT) 2%; 

: 279 Mm 3039 MACRO $SCROLL_DOWN (COUNT) = 

> 2794 mM 3040 SMGS$SSCROLL_AREA (.0CB, 

3; 2795 M 3041 -DCB hee SCRREG), 

: 2796 ” peg -OCB COCB"W"COL-STARTJ, 

3 2797 mM 304 (.DCB ¢OCB_0_80 TOM_OF SCRREG] - 

; 2798 M 3044 -0CB COCB-W"TOP_OF SCRREG) + 1), 

3 2799 Mm 3045 .0CB CocB_@_NO COLST, 

; 2800 046 SMGSM_DOWN,”COONT) 2%; 

; 2801 047 

; 280 048 BUILTIN 

:; 280 049 NULLPARAME TER; 

; 2804 050 

; 2805 051 LITERAL 

i; 2806 05¢ K_STRING_ARG = 2, 

; 280 05 K-SET_ARG = 4 

> 280 054 K"COMP_ARG = §; 

3; 2809 055 

; 2810 B29 LOCAL 

3; 2811 05 , ' Done flag 

3 aig 058 STATUS ! Status of subroutine calls 
> 281 059 DCB : REF $DCB_DECL i Addr of display control block 
> 2814 060 STR_LEN : INITIAL 40), i Length of string 

; 2815 61 STR-ADDR, : Addr of ++ they F 

3 B18 O6¢ WORR_DIR ! Working direction 

; 281 6 WRAP~CHARS : INITIAL (0), ! No. of overflow characters ; 
3 2818 4 SCROCL FLAG, ‘ Flag to scroll up, down, or neither 
; Hh ps REND_CODE; ! Rendition code from params 
; 634 O87 SSMGSVALIDATE_ARGCOUNT (1, 7); 

; 858 069 SSMGSGET_DCB ( .DISPLAY_ID, DCB); ! Get address of display control 
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; 2826 10 
 $B5¢ , 
; . 1g 
5 74 
3 $8 4 Bf? 
; 2831 78 
; 26 § 078 
a 3 
; : 5 . 1 
; 28 0 § 
; 2838 084 
: 2839 085 
; 2840 086 
3 2841 087 
3 ets 088 
3 2845 089 
3; 28446 090 
3; 2845 091 
3: 2846 09 
3; 2847 09 
3; 2848 094 
3; 2849 095 
; 2850 096 
: 2851 097 
; o26 098 
; 285 099 
3: 2854 100 
3; 2855 101 
3; 2856 § 
3; 2857 

; 2858 4 
3; 2859 5 
3; 2860 6 
; 2861 7 
3 Boe 8 
3; 286 9 
3 4 

: 5 
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LAY CHANGE = Virtual Display <= Changes 1b-Sep-1984 00:16:58 


4 

3 
'¢ 

Check user's text, if any. 

; 

| 


i If the display is full and we're at the top or bottom Line (depending on 
scrolling direction), then scroll to make a space. 


isplay 


Ax-11 Oi fogs 
SMGRTL.SRCIS 


! block 


o 
Validity check the arguments. 


JF NOT NULLPAPAMETER( DIRECTION ) 
BEGIN 
IF (..DIRECTION NEQ SMGSM_UP AND 
yi DIRECTION NEQ SMGSM_DOWN) 
ELgeRETURN (SMGS_INVARG) 
WORK_DIR = ..DIRECTION; 


LSE 
WORK_DIR = SMGS$M_UP; 


IF NOT NULLPARAMETER( CHAR_SET ) 
THEN 


! us 


' use caller's direction 


e default direction 


BEGIN 
Th «+CHAR_SET FROM SMGSC_UNITED_KINGDOM TO SMGSC_ALT_GRAPHICS OF 


CSMGSC_UNITED_KINGDOM, SMGS$C_ASCII 
SMGSC"ALT_CHAR, SMGSC_ALT_GRAPHICS) 


CINRANGE, OUTRANGE]: 
a RETURN (SMG$_INVARG); 


IF NOT NULLPARAMETER (STRING) 
THEN 


BEGIN ' use caller's 
IF NOT (STATUS = LIBSANALYZE_SDESC_R2 (.STRING; 


T 
RETURN (.STATUS); 
END; 


SMGSC_SPEC_GRAPHICS, 


r t 


ext 
STR_LEN, STR_ADDR)) 


: ' end use caller's text 


SSMGSSET_SCROLLING (SCROLL_FLAG); 


IF .SCROLL_FLAG EQL 1 AND 
-WORK_DIR EQL SMG$M_UP 


THEN 
SSCROLL_UP (1) ! on bottom 
ELSE 


Line 


32 v4 
MGDISC 
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IF .SCROLL.FLAG EQL 2 AND 
“WORK_DIR EQL SMGSM_DOWN 


SSCROLL_DOWN (1); ! on top Line 


'¢ 
! Reset the Line characteristics in case the Line was previously 


888 ! double high or wide. 
889 jo ° 
890 
891 BEGIN 
89 IND 
Boz > LINE CHAR = .DCB CDCB_A_LINE_CHAR]; 
895 LINE_CHAR : VECTOR C,BYTE); 
896 LINE_CHAR [.DCB CDCB_W_CURSOR_ROW]) = 0; 
89 END; 
898 
899 + 
900 ! Write text into the space. SMGSSPUT_TEXT_TO_BUFFER checks for 
st funny characters (tabs, etc) and also updates the cursor position. 
90 
904 IF .STR_LEN NEQ 0 
905 THEN 
906 BEGIN 
sit SSMGSSET_REND_CODE (K_SET_ARG, K_COMP_ARG); 
DCB CDCB_W_CURSOR_COL] = .DCB CDCB_W_COL_STARTI; 
910 : cursor for PUT_TEXT 


: 2909 


> $e 
SMGSSPUT_TEXT_TO_BUFFER (.DCB, .REND_CODE, 


: DDR, 
(IF RULLPARAMETER( CHAR_SET ) 
THEN SMG$C_ASCII 
ELSE ..CHAR_SET), 
WRAP_CHARS); 


NMorororonern 
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! future scrolling. 


DCB CDCB_W_CURSOR_COL) = 1; 
CASE .WORK_DIR FROM SMGSM_UP TO SMGSM_DOWN OF 


Ceneen ie 
4 tee CDOCB_W_CURSOR_ROW] + 1 LEQ .DCB CDCB_W_BOTTOM_OF _SCRREGJ 


Tens COCB_W_CURSOR_ROW] = .DCB CDOCB_W_CURSOR_ROW] + 1 
DCB COCB_V_FULL] = 1; 
ND; 
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coco aD 0D SN NNSA AAA AAA AAD MA BB EB EE BE EAA IIOnonr 
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4 
; 
END; 
'¢ 
! Update the cursor position. Set bits in the DCB which may affect 
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SMGSPUT_WITA_SCROLL = Scroll virtual displey an 1-Sep-19 4 90: 48:28 SMGRTL.SRCISMGDISCHA 
1 $ CSMGSM DOWN) : 
: Pe CDCB_W_CURSOR_ROW] - 1 GEG .DCB CDCB_W_TOP_OF_SCRREG] 
sce’ COCB_W_CURSOR_ROW] = .DCB CDCB_W_CURSOR_ROW] - 1 
0 DCB COCB_V_FULL] = 1; 
91 END; 
3 TES; 
4 
94 '+ 
95 ! Check for overflow characters which should cause us to scroll 2 Lines 


IF .WRAP_CHARS NEQ 0 
THEN 


sr WRAPLFLAG NE 
BEGIN 


BEGIN 
IF NOT we re WRAP_FLAG ) AND 


a8 in order to output everything (if wrap requested). 


! wrap requested 
! recurse until whole string output 
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LOCAL 
hat DESC : BLOCK (8, BYTE), 


_SET 
TEMP_DESC CDSC$B_CLASS] = DSCSK_CLASS_S; 
TEMP-DESC CDSCSB-DTYPE) = DSC$K-DTYPE-T: 
TEMP-DESC COSCSWILENGTH] = .STR“LEN -~.0CB CDCB_W_NO_COLS); 
TEMPDESC CDSCSA~POINTER] = .STR_ADDR + 


‘ A 
.DCB-CDCB_W_NO_COLS]; 


C_SET = SMGSC_ASCII; 
iF NOT NULLPARAMETER( CHAR_SET ) 
C_SET = ..CHAR_SET; 


+ 

' Notice that we always upscroll for presese text. 
! because downscrolling would cause the : 

! to be displayed before the first part. This approach may not 
be perfect but it at least Lines appear in a readable manner. 


iF .WORK_DIR EQL SMG$M_DOWN 
THEN 
BEGIN 
CAL 
OVERFLOW LINE; 


OVERFLOW _LINE = . 
SMGSINSERT_LINE ( 


This is 
ast part of the Line 


URSOR_ROW) + 1; 


€F (SMGSM_DOWN) 

ARAMETER TRENDITION_SET) 
-RENDITION_SET 

ELSE 0) 


(IF NOT NULLPARAMETER (RENDITION_COMPLEMENT) 
THEN .RENDITION_ COMPLEMENT 
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Ft S' 3 disployen 1 4 1984 90:08:28 TL. RC} 4 bS2:1 nad 


MGSPUT_WITA_SCROLL = Scroll virtua -Sep- SMGR SMGDISCH 16) 


; 5 41 ELSE 0) 

; 4g -WRAP_FLAG, €_SET); 

; 9 43 pce CDCB_W_CURSUR_ROWJ~= .0¢B CDCB_W_ROW_START); 

: 398 45 4 ELSE 

; 3000 46 4 SMGSPUT_WITH_SCROLL (.DISPLAY_ID 

; 3001 47 & TEMP DESC, SREF (SMGSM_UP) 

: 300 48 2 (IF MOT NULLPARAMETER TRENDITION_SET) 
; 300 49 THEN .RENDITION SET 

; 3004 0 4 ELSE 0), 

: 3005 1 2 (IF NOT NULLPARAMETER (RENDITION_COMPLEMENT) 
3 boo ¢ THEN ,RENDITION_ COMPLEMENT 

; 4 ELSE 0), 

i $008 34 4 WRAP FLAG, 

+ 3010 56 4 DONE = 0; eee 

: ae 2 : Ape 1; ! to keep Bliss happy 

: 61 3g 3 ELSE 

Be BBS se 

: 016 6¢ 4 i Wrap was not requested but there were overflow characters. 
; bie $07 ? Put out diamond in Last position to show truncation. 

; 019 265 4 iF ,0ce CDCB_V_TRUNC_ICON] 

: 054 66 5 BEGIN 

; 02¢ 268 5 IF NOT .DCB COCB_V_FULLI 

; 30 269 5§ THEN 

: 3024 270 5 DCB CDCB_W_CURSOR_ROW] = .DCB CDCB_W_CURSOR_ROW] - 1; 
: 025 3671 3 pcB COCB_wW_CORSOR_COLJ = .0CB COCB_wW_NO_COLS); 

; 3027 she 8 SMGSS$PUT_TEXT_TO_BUFFER (.DCB, 

; 3028 27% 3 “REND CODE + ATTR_M_USER GRAPHIC, 
; 029 379 i, UPCIT (BYTE (DIAMOND), 

; 9 0 376 3 SMG$C_ASCII); 

: 08 378 3 IF NOT .DCB CDCB_V_FULL] 

: 3034 280 5 DCB CDCB_W_CURSOR_ROW] = .DCB [DCB_W_CURSOR_ROW) + 1; 
3; 3035 281 5 ' restore for next call 

; 3036 e8¢ 4 END; 

: $33 obi ¢ DONE = 1; 

; $39 $Be END; 

: 3oe4 $B even 

; beg 288 DONE = 1; ! no wrap chars 

Bo BRE. 

; 3045 91 2! See if this change should be reflected on the screen. 

3 pee $36 ' Even if SMGSPUT_WITH_SCROLL is called multiple times, call 

; 304 o ! SMGSSCHECK_FOR_OUTPUT_DCB only once. 

a. Bhs 

: 3050 36 IF .DONE 

; 35051 .] THEN 


a 


3; Re 


M 
| Pegee erat. CHA ote syd ae CHANGE = Virtual Display -- Changes 18-sep- 
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SMGSPUT_WITA_SCROLL = Scroll virtual display an 14-Sep- 


98 RETURN (SMGSSCHECK_FOR_OUTPUT_DCB (.DCB 
Bf "ee 1; 

0¢ : 

0 END; 


9190) 
60 01004 


P. AAC 
O3FC 00000 
59 000000006 00 9€ 0000 
SE 18 e5 30009 
58 D4 0000C 
04 AE D4 QO00E 
50 6C gt 83 00011 
06 0 91 00015 
08 1B 00018 
50 00000000G 8F D0 OODIA 
04 00021 
50 9 BC DO 00022 1$: 
046 BC 8 AO 01 Bese 
06 12 00028 
11 44 Ad 91 Bangs 
08 13 00031 
50 00000000G 8F DO 00033 2$: 
04 Q003A 
53 04 B8C 00 00038 3$: 
03 6C 91 0003F 
17 1F 00042 
oc AC rf 00044 
12 13 00047 
01 Oc BC D1 00049 
06 13 0004D 
02 OC BC D1 00045 
22 is 00053 
57 oc BC Dd Bones 4$: 
03 11 00059 
57 01 00 Bonee 5$: 
07 6C 91 OQOOSE 68: 
1C =1F 00061 
1c =A » 0063 
17 13 00066 
04 00 1c ~=6BC OCF «00068 
0012 0012 0012 pois BORee 7$: 
01 00075 
50 000000006 00 9€ 00077 8$: 
04 OOO7E 
02 6C 91 OOO7F 9$: 


1986 98:08:20 


§mG$C_PUT_WITH_SCROLL)) 


AX-11 ot 
SMGRTL.S 


ss-32 V4.0 
CISMGDISCHA. if 2:1 


! End of routine SMGSPUT_WITH_SCROLL 


SMGSPUT WITH_SCROLL, Save R2,R3,R4,R5,R6,- 
CMGssPuT _TEXT_TO_BUFFER, R9 
#24, SP 


#SMG$_WRONUMARG, RO 


@DISPLAY_ID, RO 
56(RO), SDISPLAY_ ID 


B(RO), #17 
#SMG$_INVDIS_ID, RO 
@DISPLAY_ID, DCB 
(AP), #3 


12 (AP) 

@DIRECTION, #1 
@DIRECTION, #2 
@DIRECTION, WORK_DIR 


#1, WORK_DIR 
(AP), #7 


28 (AP) 
@CHAR_SET, #0, #4 


9$-7$ 
SMG$_INVARG, RO 
(AP), #2 
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SMGSDISPLAY_CHA SMGSDISPLAY_CHANGE = Virtual Display <= Changes 16-Sep-1984 00:16:3 AX=11 Bliss-32 V4.0-74 P 
aeeee SMCSPUT WITR SCROLL = Scroll wirtuel disoren ven leesennt9Be $eioo;ee LaMont tae ismeplscuaoS2-1 aad ty § 
16 1F 00082 BLSSU -:10$ ; 
08 AC 03 0 TSTL BAP) F 
AC BO 90089 Govt STRING. RO 3110 
000000006 00 1 9080 JSB LIBSANALYZE_SDESC_R2 : 
1 OD $8 MOVL R1, R 3 
01 0 F 09% BLBS STATUS, 10$ : 
50 be OOOBA 10S: TERE ROLL_FLAG : 3120 
56 34 3 oe Soot MOVAB Set Ocby R6 : 
16 66 £9 OOOA BLBC = (R6) : 
6A AB 28 OA 8 OA CMPW 38=s-« 4 0(DCB), 74(DCB) : 
0 2 000A BNEQ 118 : 
50 1 D0 OOOAA MOVL #1, SCROLL_FLAG ; 
0A 11 OO0AD BRB 12$ : 
48 A3 28 A3 61 O00AF 11$:  CMPW  40(DCB), 72(DCB) : 
03 12 00084 BNEQ 12$ : 
50 02 DO 0086 MOVL #2, SCROLL_FLAG : 
01 D1 00089 12$: CMPL  SCROLL_FLAG, #1 + 3122 
08 12 000BC BNEQ = : 
01 57 D1 OOOBE CMPL § WORK_DIR, #1 + 3123 
06 12 000C1 BNEQ 13$ : | 
01 oD 900¢3 PUSHL #1 : 3125 
01 oD 000C¢ PUSHL #1 ; 
OE 11 000C7 BRB 14$ ; 
02 50 D1 000C9 13$:  CMPL © SCROLL_FLAG, #2 + 3127 
e¢ 12 O00CC BNEQ 15$ : 
02 7 01 OOOCE CMPL  WORK_DIR, #2 : 3128 
27 12 00001 BNEQ  =«'15$ F 
01 DD 00003 PUSHL #1 + 3130 
02 pd 00005 PUSHL #2 ; | 
7E 06 A3 3C 000D7 148:  MOVZWL 6(DCB), -(SP) ; 
50 4A AS 3C 000DB MOVZ2WL 74(DCB), RO : 
51 48 AS 3C OOODF MOVZWL 72(DCB). RI : 
50 51 C2 000E3 ‘UBL2_ R1, RO : 
01 AO 9F 00066 PUSHAB 1(RO) : 
7E 04 A3 3C O00E9 MOVZWL 4(DCB), (SP) : 
7E 48 a3 3C OO0ED MOVZWL 72(DCB), -<(SP) : 
53 DD O00F1 PUSHL DCB : 
000000006 00 07 FB 000F3 CALLS #7, SMGS$SCROLL_AREA : 
54 28 AS 9E OOOFA 15$: MOV 40(DCB), R4& + 3142. 
50 64 3C OOOFE MOVZWL (R4), RO ; | 
50 4C A3 CO 00101 ADDL2  76(D¢B), RO : 
$0 94 00103 CLRB —- (RO) : 
D3 0107 TSTL STR_LEN : 3150 
42 13 00109 BEQL 218 : 
55 2— A’ 9A 00108 MOVZBL 46(DCB), REND_CODE : 3153 
04 6C 91 0010F CMPB (AP), #4 : 
09 1F Oo112 BLSSU-16$ : 
10 AC D5 0114 TSTL  16(AP) : 
04 13 00117 EQL 4=s«é16$ : 
55 10 BC CB 00119 BISL2 @RENDITION_SET, REND_CODE : 
05 6C 91 O10 16$:  CMPB. (AP), # : 
09 1F 001 BLSSU-'17$ : 
16 AC 05 01 é TSTL 20 AP) : 
62 13 001 BEQL *'17$ : 
55 14 be CC 00127 XORL2  @RENDITION_COMPLEMENT, REND_CODE : 
| 
t 
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SMGSDISPLAY CHANGE = Virtual Display -= Changes 1b-se -1984 
SMGSPUT_WITA_SCROLL = Scroil virtual display-an 14-Sep-19 4 
2A OAS 9 A3 BO 00128 17S: 
2 * BF St Ooi 
« BES 
£ 43 00) 
1 DD 4 D 18$: 
3°«271 13° 
1C¢ BS DD 00141 19%: 
DD 00144 208: 
0128 =8F BB 00146 
69 6 fe ters 
2A AS 1 8B 14D 218: 
01 01 7 CF 90151 
0015 0004 00155 22$: 
50 $% 3C 00159 23$: 
0 06 0015C 
50 4A AS 10 ED 0015E 
1 19 00164 
64 B6 00166 
14 11 00168 
50 64 3C OO16A 248: 
50 D7 00160 
50 48 AS 10 00 ED 0016F 
04 14 00175 
64 87 00177 
03 11 00179 
66 01 88 00178 25$: 
04 A D5 pote 268: 
03 12 00181 
OOEA 31 00183 
06 8g 91 00186 278: 
03 1E& 00189 
OOBE 31 00188 28%: 
18 AC rf OO18E 29%: 
F8 13 00191 
18 BC 05 00193 
F3 13 00196 
12 AE O10E 8F BO 00198 
10 AE 58 06 A3 A3 0019E 
50 06 AS 3C OO1A4 
14 AE 52 50 C1 O01A8 
0c ag 01 g0 ats) 
0 6C 91 001B1 
OA 1F 00184 
1¢ «6AC.) ODS 00186 
0S 13 Bp 188 
Oc AE 1c) =6BCCs«éOOs«OO018 
02 57 Dl Bate 30$: 
49 12 QO1C 
08 AE 64 3¢ 001C5 
08 AE D6 001C9 
0c AE 9F OOICC 
18 AC OD OOICF 
05 6c 91 bob 
OA 1F 001D 


79:08:26 


SMGRIL.SRC 
4(DCB), 42(DCB) 
WRAP_CHARS 
(AP); #7 
eB (AP) 

$ 
a 
208 
@CHAR_SET 
STR_ABDR 
#*MZR3,R5 


#0 
25$ 


(R46) 
26$ 
(R4), RO 
#0, #16, 72(DCB), RO 
25$ 
(R4) 

$ 


26 

#1, (R6) 
WRAP_CHARS 
27$ 


#16, 74(DCB), RO 


43$ 

(AP), #6 

29$ 

41$ 

24 (AP) 

@WRAP_FLAG 

#270, TEMP_DESC+#2 

6(DCB), STRLLEN, TEMP _DESC 


6(DCB) , 
RO, STR_ADDR, TEMP_DESC+4 
wi. C_SET 


oo 


@CHAR_SET, C_SET 
WORK _BIR, #2 
35$ 


(R4), OVERFLOW LINE 
OVERF LOW_L INE 


S 
WRAP_FLAG 
(AP)> #5 
31$ 


AX=11 Oi tegen V4.0-74 
SMGDISCHA.852;1 


R8> 
#6, SMGSSPUT_TEXT_T0_BUFFER 
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SMGSDISPLAY_CHA SMGSDISPLAY CHANGE = Virtual Display <= Changes ese 1984 00:16:3 AX-11 Bliss-32 V4.0-74 
gee SMGSPUT_WITA_SCROLL = Scroll virtue displayan 14-Sep-19 “ 99:08:25 SMGRTL.SRCJSMGDISCHA.B52;1 


1% ac D 
| : 


| 
; 


107 TSTL O(AP) 
05 1 1DA BEQL 1$ 
14 AC 0D 001DC PUSHL RCNOI TION. COMPLERENT 
9 11 0O01DF fog 32$ 
| ps O1E1 a8: CLAL =(SP) 
| 04 C 91 OO1E3 328: CMPB (AP), #4 
| A if 1e8 BLSSU 
10 A o 1E TSTL 16 (AP) 
0s (1 1EB BEQL 
10 ag DD OO1ED PUSHL RENDITION_SET 
9 11 Fg BRB $ 
5 D4 OOTF a3: CLRL -(SP) 
10 AE 02 DO OO1F4 348: MOVL #2, 16(SP) 
10 AE OF OO1F8 PUSHAB 16(SP) 
$s AE 9F OO1FB PUSHAB TEMP 
0 AE 99F OOTFE PUSHAB OVERFLOW_LINE 
04 AC DD 00201 PUSHL DISPLAY D 
F637 —s CF 08 FB 00204 CALLS #8, SMGSINSERT_LINE 
64 : BO 00209 MOVW (DCB), (R4) 
A 11 0020C BRA 40$ 
OC AE OF OO2ZOE 358: PUSHAB (C_SET 
18 AC dD 00211 PUSHL WRAP_FLAG 
05 6C 91 00214 CMPB (AP)? # 
OA iF 30 17 BLSSU  36$ 
16 AC 0 $61? TL O(AP) 
05 13 0021C BEQL 6$ 
14 AC ODD Oost PUSHL RENDITION_COMPLEMENT 
02 11 00221 BRB 37$ 
7E D4 002 2 36$: CLAL =(SP) 
04 6C 91 00225 37$: CMPB (AP), #4 
OA 1F 00228 BLSSU. 38 
10 AC D5 0022A TL 16 (AP) 
05 13 0022D BEQL 38 
10 aC ODD Ose PUSHL RENDITION_SET 
02 11 00232 BRB 39 
7E 04 00234 388: CLAL -(SP) 
10 AE 01 DO 00236 398: MOVL #1, 16(SP) 
10 AE 9F O023A PUSHAB 16(SP) 
24 AE 9F 0023D PUSHAB TEMP_DESC 
04 AC DD 00240 PUSHL DISPCAY_ID 
FDB8 =s«CF 07 FB itt CALLS #7, SMGSPUT_WITH_SCROLL 
52 D4 00248 408: CLAL DONE 
36 11 O026A BRA $ 
1F 2F A 01 €1 0024C 418: BBC #1, 47(DCB), 43% 
02 66 £8 00251 BLBS (Rb), 428 
64 87 8 54 DECW (R4) 
2A OAD 06 A3 BO 00256 428: MOVW 6(DCB), 42(DCB) 
01 dD 00258 PUSHL #1 
FDO9E CF 9F 0025D PUSHAB P.AAC 
01 po 0261 PUSHL #1 
40 a F 00263 PUSHAB 64(REND_CODE) 
53 DD 00266 PUSHL 
69 05 FB 0268 CALLS #5, SMGS$$PUT_TEXT_TO_BUFFER 
02 66 £8 00268 BLBS (Rb), 43$ 
64 B6 0026 INCW (R4) 
52 4 DO 70 43%: MOVL #1, DONE 
| 0c 2 €9 0027 BLBC DONE, 44$ 
! 
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oe 
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aque CHA SMGSDISPLAY CHANGE = Virtual Display -- Changes 1bese =300- 138% 99: 48: i AX=-11 Bliss-32 V4.0-74 Page 91 


| SMGSPUT_WITR_SCROLL = Scroll virtual display an 14-Sep-1 SMGRTL.SRCIJSMGDISCHA.B 82; 1 (16) 
PUSHL #21 : 3298 

| 3 b 90 8 PUSHL CB : 

| 000000006 00 FB 00274 CALLS #2, SGSSCHECK_FOR_OUTPUT_0CB ae 

50 01 b0 6 00 ee 448: MOVL #1, RO : 

RET : 3303 


; Routine Size: 646 bytes, Routine Base: _SMGSCODE + 1005 


; 3058 3306 1 !<BLF/PAGE> 
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| SMGSDISPLAY_CHA SMGSDISPLAY_CHANGE = Virtual Display -- Changes ibese -198< 16:3 AX-11 Bliss-32 V4.0-74 Page 92 
hee & SMGSREAD_FROM_DISPLAY - Read Ae tren virtust 12-88-1884 00: 06:28 ESMGRTL SRE SMGDISCHA.B32;1 . (17) 


(3 060 0S 1 ZSBITL "SMGSREAD_FROM DISPLAY = Read text from virtual display’ 
\3 061 86 1 GLOBAL ROUTINE SMGSREAD_FROM_DISPLAY ( 
\3 bO¢ 1 DISPLAY_ID, 
3 306 08 1 RET_STRING 
; 3064 09 1 SEARCH_STRING 
; 3065 10 1 ) ez 
; 0o6 11 1 fee 
13 oes \ ] FUNCTIONAL DESCRIPTION: 
; 3069 14 13 This procedure returns back to the caller a text string which 
; 3070 tes Se represents the current contents of a portion of a virtua 
; 3071 $18 1! display line. The current cursor position row determines which 
3 ore if 3? Line is to act as the source of the text. 
; 307 +5! ee ee If the SEARCH STRING parameter is omitted, the contents of 
; $05e 319 1! the cur.ent Line, from the current cursor column to the 
: $oh8 359 : right-most column, is returned in RET_STRING. 
; 3077 $358 1% If SEARCH STRING is provided, it is a list of character codes 
; 3078 323 1! that are fo act as terminators in “‘back searching’’ -- the 
; 3079 3324 1! process of determining the first character position to be | 
; 3080 $352 i. returned. Each character in this —— serves as a potential 
; 3081 $59 7 | terminator. If no terminator is encountered during ‘'back 
3 S068 $3 Te 4 searching’, the search is terminated by column 1 of the 
; 308 328 1! virtual display. 
; 3084 HT 1! 
; 3085 330 1! Some examples: ; 
; 3086 3331 1! Assume the Line of text which contains the current 
; se #4 $336 ; cursor contains the text: 
: 3089 3334 1 | "S$ COPY/LOG FOO1 F002 " 
we Re ; 
; 309 3337 1 | Assume the cursor is positioned at the "'G'’. 
: 309 3338 1! 
; 3094 3339 1 | SMGSREAD_FROM DISPLAY (Display_id, OUTSTRING ) 
; 3095 3340 1! will return ‘ 001 FOO2 “since no terminator was supplied, 
; $098 se! : and hence no ‘‘back=-searching’’ is performed. 
: 3098 33¢5 | | SMGSREAD_FROM DISPLAY (Display_id. QUTSTRING, */* ) ; 
; 3099 3344 1! will return *'7L0G FOO1 FOO2 ~ "' since the specified terminator 
; $100 eee? ; was found prior to encountering column 1. 
3 5108 3347 1 | SHGSREAD FROM DISPLAY (Display id, OUTSTRING. *" ) 
; 310 348 1! will return ‘S$ COPY/LOG F001 FOO2 "since the specified 
: ee ri : terminator was not found prior to encountering column 
: 3106 3351 1! SMGSREAD_FROM_DISPLAY (Display id, OUTSTRING, '#* ) 
; 3107 $326 1! will retirn ‘S$ COPY/LOG FOO1 FOO2 "since the specified 
3 198 $27 : terminator was not seen before column 1 was encountered. 
; 3110 355. 1 | SMGSREAD_FROM_DISPLAY (Display. id, QUTSTRING, "Y/"") 
3 3111 356 1! will retirn ‘'7L0G F001 FOO "since, of the specified 
: 3112 > es ee terminators, the ''/'' was encountered before column 1 or any of 
; 13? $28 : the other terminators. 
: 3115 360 1! NOTE: The “‘back-searching™’ begins at the current cursor column, 
: 3116 3361 1! Hence, if the text string is: 
L 


ee 
| 
MGSRCAD_tROM_DISPLAY = Read text from virtual 14-Sep-19 


68 


64 


“"$COPY/LOG FOO1 FOO2 "and cursor is positioned 


SMGSREAD _FROM_DISPLAY (Display_id, OUTSTRING, * * ) will 
return ‘” F002 7” 


o 


: CALLING SFQUENCE: 


ret_status.wic.v = SMGSREAD_FROM DISPLAY ( 

DISPLAY _ID.rl.r, 
RET_ STRING. wt.dx 
C,SEARCH_STRING.rt.dxJ) 


! FORMAL PARAMETERS: 


AAAAWIAPPYPIPOPIP NONI 


DISPLAY_ID.rl.r Address of a display id. 

RET_. TRING. wt.dx Address of a string descriptor, 
describing the output string to be 
produced. 

SEARCH_STRING.rt.dx COptional]. If specified, the address 


1 

! 

i 

i 

i 

1 

i 

' 

i 

i 

' 

i 

! 

i 

! 

i 

i 

i 

i 

1 

i 

; of a string descriptor, peace tb tng a 
; List of terminators which is to stop the 
: backward search in determining the 

; be aha position of the string to be 
: returned. : 

: If omitted, the returned string starts 
: at the current cursor column position -- 
no back searching is performed. 

i 

i 

i 

i 

i 

1 

i 

i 
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! 

i 

i 

i 

i 

i 

i 

i 

le 


IMPLICIT INPUTS: 
NONE 
! IMPLICIT OUTPUTS: 
NONE 
! COMPLETION STATUS: 
SS$_NORMAL Normal successful completion 
LIBS_INVSTRDES Invalid string descriptor 
LIBS_INSVIRMEM Insufficient virtual memory 
SIDE EFFECTS: 
NONE 


TIN 
NULLPARAME TER; 


LOCAL ; 
STATUS, ' Status of subroutine calls 
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START_COL, ' Computed column number where source- 
! to-be-returned starts. 


START_LOC : REF VECTOR C1, BYTE], ! Address of text byte 
' currently being inspected 


DCB : REF $DCB_DECL; ! Address of Display Control Block 


'¢ 
} Validate number of arguments and extract corresponding DCB address 


SSMGSVALIDATE_ARGCOUNT (1, 3); 
SSMGSGET_DCB T.DISPLAY_ID, DCB) 


Cn” NULLPARAMETER (SEARCH STRING) 


orein ! Terminator string supplied 
LEN, ! Length of terminator string 


T_ADDR : REF VECTOR C,BYTEI; ! Address of Ist byte 
! of terminator string 


1+ 
Extract length and address of ist byte of terminator string. 


IF NOT (STATUS = LIBSANALYZE_SDESC_R2 ( .SEARCH_STRING ; 
T_LEN, T_ADDR)) 


N 
RETURN (.STATUS); ! Can't access terminator string 


14+ 
Initialize pointer for searching. 


START_LOC = 
~~" (DCB CDCB_W_CURSOR_ROW] - 1) * .DC8 CDCB_W_NO_COLS] + 
.DCB COCB[W7CURSOR-COL] - 1 + .DCB CDCB_A_TEXT_BUFJ; 
START_COL = .DCB CDCB_W_CURSOR_COL]; 
WHILE -START_COL NEQ T 
BEGIN !' Back search 


i If text byte currently under inspection is one of the 
' the terminator bytes, exit from loop. 


le 
iNCR 1 FROM 0 TO .T_LEN -1 


BEGIN ‘ +: to match terminator loop 
HS tant LG CO] EQL .T_ADOR C.1] 


BEGIN ' Terminator found exit path 
RETURN witt int R_DX6_¢ 
-DCB LOCB 
rom 


ND; ' Terminator found exit path 


W_NO_COLS] = .START_COL + 1, ’ bytes 
RET_STRING)); i To desc 


P a 
SMGRTL.SRCJSMGDISCHA.B52;1 
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1SPi “Y_CHA SMGSDISPLAY CHANGE = Virtual Display <= Changes 16-Sep-19 73 AX-11 Bliss-32 V4.0-7 Pa 95 
at SMGSREAD_ FROM DISPLAY = Read text tren Be 18-sep-1984 9: 08: 8 SMGRTL.SRC SMGDISCHA. 8 2:1 - (17) 
3 rhs ; = END; ! Try to match terminator loop 

; ct & i This character doesn't match any of the terminator. 
; ¢ o 2 : ; Back up where we are searching ty one column, 
: 1 4 START COL = .START_COL -1; 
3 § 4 START~ LOC = , STA ART~ LOC 1; 
: ; Z te END; i Back”search. 
: 40 5 i If we fall out of loop above, none of the terminators were 
: 23 $ 2 found. We need to return the whole Line. 
fb 326 & 4 RETURN (LIBSSCOPY_R_DX6 ( 
5 44 9 & .6cB COcB_w -NO_COLS], ' # bytes 
; 32465 90 4 -START_LO ! from 
i $246 91 “RET_STRING)); i To desc 
; rt 24 END ! Terminator string supplied 
: 3249 94 ELSE 
: 3250 495 
; $23 oe BEGIN ! No terminator string supplied 
3 358 rhs 4 ’ “Return string starting at current cursor column. 
; $e¢ 500 START_COL = .DCB CDCB_W_CURSOR_COL]; 
i $28 23) END; ! No terminator string “supplied 
: $85 208 rr 
; 3259 504 ! Recalculate starting byte offset within text buffer for selected 
3 sev 283 ; starting postion. 
; 62 507 2  START_LOC = (. pce  foc8_¥ CURSOR ROW] = 1) * .DCB CDCB_W_NO_COLS] 
: 326 508 “COL - 1 * .0CB COCB_A_TEXT_BUF I; 
: 3264 509 ‘+ 
3 $502 219 Deliver selected text ca to callers string. 
: $6 312 "RETURN (L1BSSCOPY R_DX6 ( 
: 3268 51 B [DTB_W_NO_COLS] - .START_COL + 1, ! # bytes 
; 5269 514 T Lot,” stare address 
: 3270 3515 2 “RET_STRING)); Dest. descr. 
3; 3271 516 1 END; : End of routine SMGSREAD_FROM_ pispray 
OFFC 00000 ENTRY SMGSREAD_FROM_DISPLAY, Save R2,R3,R4,R5,R6,~-; 3306 
R7,R8,R9R10,R11 3 
5E 04 3 $000 SUBL #4, 3 
50 6C ae 8 SUBB #1, (AP), DIFF ; 3430 
02 0 CMPB)sOéOdFF, #2 
ge a itd BLEQU $ 
50 000000006 8F Bo B08 move #SMGS$_WRONUMARG, RO : 
50 04 BC DO 00016 18: MOVL § @DISPLAY_ID, RO > 3431 
04 BC 8 AO D1 OOOIA CMPL  56(RO), SDISPLAY_ID ; 
06 12 O001F BNEQ es 3 


} 
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04 DE RET 
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; Routine Size: 223 bytes, Routine Base: _SMGSCODE + 1288 
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1 ZSBTTL “SMGSRETURN CURSOR_POS - Retere current cursor position’ 
GLOBAL ROUTINE SMGSRETURN_ CURSOR_POS ‘ 


DIS SPLAY_ ID, 
ROW _NUM, 
COL. <NUM 


‘e+ 
Pee, DESCRIPTION: 


Returns the current cursor row and column position in the 
specified virtual display. 


CALLING SEQUENCE: 
ret_status.wic.v = SMGSRETURN_ Per POS ( 
SPCAY_ 1D. rl.r, 
ROW NUM wher 
COLZNUM. wl ard 
i FORMAL PARAMETERS: 
DISPLAY_ID.rl.r Display id of desired display. 
ROW _NUM.wl.r Returned row position. 
COL_NUM.w.r Returned column position. 
IMPLICIT INPUTS: 
NONE 
IMPLICIT OUTPUTS: 
NONE 
COMPLETION STATUS: 
SS$_NORMAL Normal successful completion 


SMG$_WRONUMARG prong number arguments. 
SMG$_INVDIS_ID Invalid display Id. 


SIDE EFFECTS: 


NONE 
” BEGIN 
LOCAL > 

DCB : REF S$DOCB_DECL; ! Addr. of display control block 
SSMGSVALIDATE_ARGCOUNT (3,3); ! Check for right no. of args 


SSMGSGET_DCB ( .DISPLAY_ID, DCB); Set edérese of display control 
' bloc 


-ROW_ 


NUM “pee B pte. -CURSOR_ROW); 
. COL NUM 


=CURSOR~COLJ; 


SMGRTL.SRCISMGDISCHA. : 231 
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i 
, $333 3323 perunn (SS$_NORMAL) ; 


! End of routine SMGSRETURN_CURSOR_POS 
0000 000 sENTRY SMGSRETURN_CURSOR_POS, S thi 
03 6 i 8 inpa 1AP), nn - sc onsen, 
50 000000006 SF v0 000 MOVL #SMGS$_WRONUMARG, RO 
50 9 BC 00 boor 1$: MOVL @DISPLAY_ID, RO 
06 BC 8 Ad 01 0013 CMPL  56(RO), SDISPLAY_ID 
06 12 0001 BNEQ 
11 44 A 91 QOOTA CMPB 8(RO), #17 
08 13 OOO1E BEQL 
50 000000006 8F v6 900 9 2s: OWL #SMG$_INVDIS_ID, RO 
50 04 BC DO 00028 3$: MOVL  @DISPLAY_ID, DCB 
08 BC 28 AO 3c 0002C MOVZWL 40(DCB), @ROW_NUM 
oc BC 2A =6AO «3C 00031 MOVZWL 42(DCB), @COL_NUM 
01 00 00036 MOVE 1, RO 
04 00039 RET 


; Routine Size: 58 bytes, Routine Base: _SMGSCODE + 136A 
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: orf 1 ZSBTTL “SMGSSCROLL_DISPLAY_AREA = Scroll rectangular area in a virtual display’ 
; 5 8 1 GLOBAL ROUTINE SMGSSCROLL_BISPLAY_AREA ( 

; ef 1 DISPLAY_ID, 

; 80 1 START_ROW, 

: 8 581 1 START COL, 

3 9 286 1 HEIGHT, 

: 0 5 1 WIDTH 

: 3341 584 1 DIRECTION, 

; A: 585 1 COUNT 

; 4 586 1 )«s 

3 4 587 1 !4+ 

; rk 4 ! 1 FUNCTIONAL DESCRIPTION: 

; 3347 590 1! This routine scrolls the contents of a rectangular area in a virtual 
> 3348 oy) 6 display in the specified direction for the specified count. By default 
; $08 236 1! the scrolling rectangle is the ‘scrolling region’ in the virtual 

| a ae Be 4] eee 

$ 3350 344 ! } The default direction is ‘up’ and the default number of units is 1. 
; 3354 ar CU The scrolling rectengie must Lie entirety 

; $22 238 ' within the virtual display, else SMG$_INVARG is returned. 

; 3357 3600 1! If the number of units to be scrolled exceeds the s.ze of the rectangle 
; 3358 3601 1! in that direction the text within the voctonats simply ‘‘disappears’’ 
: 3359 3602 1! at the rectangle boundary. Locations empticd by chis operation are 
; 3360 3603 1! set to spaces. 

; 3361 3604 1 } poy 

3 tae) $e02 : } The cursor position is left at START_ROW, START_COL. 

; 3364 607 1 ! CALLING SEQUENCE: 

; 3365 3608 1! 

; 3366 3609 1! ret_status.wlc.v = SMGSSCROLL_DISPLAY_AREA ( 

3; 3367 3610 1! DISPLAY_ID.rl.r 

; 3368 3611 1! Be ROW.rl.r, START_COL_NUM.rl.r] 
; 3369 3612 1! sHEIGHT. rl.) 

; 3370 36135 1! WIDTH. rl.rd 

; 3371 3614 1! DIRECTION. rl .rJ 

; 336 3615 1! COUNT. rl.rJ 

3 Sar. 3616 1! 

3 3374 3617 1 ! FORMAL PARAMETERS: 

; 3375 3618 1! ; : 

; $409 ah : DISPLAY_ID.rl.r Display id of desired display. 

; 3376 3054 1! START_ROW.rl.r Optional. Row in which scrolling region starts. 

; $325 3698 : Defaults to row 1. 

; 3381 624 1! START_COL.rl.r Optional. Column in which scrolling region starts. 
3 386 OS ! Defaults to column 1. 

; 3384 6 5 77 HEIGHT. rl.r Opt tonal . Height of scrolling region. Defaults to 
3; 3385 6 8 @ the height of the scrolling region in the virtual 

; $n9 ? ; : display. 

; 388 631 1! WIDTH. rl.r Opt tonal. Width of scrolling region. Defaults to 

; 3389 o 1! the width of the scrolling region in the virtual 

: 3390 635 1! display. 
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; 3391 634 1! 
; 339 ese 7 DIRECTION.rl.r Optional. Direction in which to scroll. Defaults 
; 339 6 $ +: to SMGSM_UP. Choices are: SMG$M_UP 
; 3394 6 1! SMG$™_ DOWN 
: 3396 639 1 SHeSMCLEFT. 
; 39 640 1! t; 
3; 5398 641 1! COUNT. rl.r Optional. Number of positions to scroll. Defaults 
; 3399 org 1! to 1 Line. 
; 3400 645 1! 
: 3401 644 1 ! IMPLICIT INPUTS: 
; 340 645 1! 
; 340 646 1! NONE 
; 3404 647 1! 
: 3405 648 1 ! IMPLICIT OUTPUTS: 
; 5406 649 1! 
3 tt 650 1! NONE 
; 3408 651 1! 
; 3409 026 1 ! COMPLETION STATUS: 
; 3410 3655 1! 
3; 3411 3654 1! SS$_NORMAL Normal successful completion 
; sig a2? 1} SMGS$_WRONUMARG Wrong nuaber arguments. 
3; 341 656 1! SMG$_INVDIS_I1D Invalid display Id. 
3; 3414 3657 1! 
3; 3415 3658 1 ! SIDE EFFECTS: 
; 3416 3659 1! 
3; 3417 3660 1! NONE 
; 3418 3661 1 !-- 
: gh 5008 2 BEGIN 
: 3420 3665 2 LOCAL 
: 3421 3664 2 DCB : REF $DCB_DECL, ! Addr. of display control block 
; 3056 3665 2 LOCAL_ROWw, ! working start row 
; 3425 3666 2 LOCAL _COL ! working start column 
; 3424 3667 2 LOCAL_HEIGHT, ! working height 
; 3425 3668 2 LOCAL_WIDTH, ! working width — 
: 3426 3669 2 LOCAL_DIR, ! working direction 
; 3427 3670 2 LOCAL COUNT, ! working count , 

3428 3671 2 STATUS; ! status of called routine 

ry 4 3672 2 

5430 3673 2 BUILTIN 
. 3431 3674 2 NULLPARAMETER; 
3 3432 3675 2 
: se87 $078 2 SSMGSVALIDATE_ARGCOUNT (1,7); 
3 3 5 678 é SSMGSGET_DCB ( .DISPLAY_ID, DCB); ! Get address of display control 
: +36 679 2 ! block 
; RH 680 
: 5438 681 '¢ ah : 
3: 3439 68 ! Validate arguments and fill in local variables. 
; 3440 68 le 
3 3441 684 
3; 344 685 2 IF NOT NULLPARAMETER (START_ROW) AND 
; ep re 2 mF NULLPARAMETER (START_COL) 
3 3445 688 BEGIN ' use caller's row, col 
; 3446 689 SSMGSVALIDATE_ROW_COL (..START_ROW, ..START_COL); 
> 3447 3690 LOCAL_ROW = .7START_ROW; 
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| 
| 
: 34468 91 LOCAL_COL = ..START_COL; 
3; 3449 3 E 
3 0 9 ELSE 
3 1 94 BEGIN e default row, col 
3 § 5 LOCAL_ROW = .DCB CDCB_wW_ iob® OF _SCRREGI; 
3 038 tOCAL “COL = 1; 
: 3cee £35 et 
3 § 344 LOCAL HEIGHT = rt Ps (DCB_W g He OF SCRREG] - 
; ef oe L.ROO #1; ! Tnik to default 
s 59 oe IF NOT NULLPARAMETER (HEIGHT) 
3 60 THEN 
3; 3461 704 BEGIN ! check caller's heigth 
; 346 705 IF ..HEIGHT + .LOCAL ROW - 1 LSS .0CB FocB. W_ROW_START] OR 
3 re re a He lGnt + ,LOCAL-ROW - 1 GTR .DCB CDCB-W-NO_Rows) 
; 3465 708 4 RETURN (SMG$_INVARG) 
>; 3466 709 ; ELSE 
: 3467 710 LOCAL_MEIGHT = ..HEIGHT; 
; 3468 711 2 END; 
3; 3469 Ng 2 
3 ote a? LOCAL_WIDTH = .DCB CDCB_W_NO_COLS]; ! init to default 
: 347 715 IF NOT NULLPARAMETER (WIDTH) 
3; 347 a THEN 
3: 3476 71 BEGIN ! ors caller's width 
3; 3475 718 If ..WIDTH + .LOCAL_COL -1 LSS .DCB CDCB_W_COL_START] OR 
3 qe78 ay 2 wim + .LOCAL_COL -1 GTR .0CB COCB-W-NO_CTOLSJ 
3; 347 721 & NRETURN (SMG$_INVARG) 
3; 347 1s¢ ; 
; 3480 372 LOCAL_WIDTH = ..WIDTH; 
: 3481 3724 END; 
; 348 3725 
; 348 3726 LOCAL_DIR = SMGSM_UP; 
3: 3484 ese 2 
: 3485 728 2 IF NOT NULLPARAMETER (DIRECTION) 
3; 3486 C44 ¢ THEN 
; 3487 730 BEGIN check caller's direction 
3 m7 144 3 CASE . DIRECTION FROM sHcsh UP TO SMGSM_LEFT OF 
; 3490 3533 CSMG$M_UP, SMGSM DOWN Teen RIGHT, SMGSM_LEFT]: 
: 3491 3734 LOTALDIR = 7.DIRECT 
; 349 735 
3; 349 736 CINRANGE ,OUTRANGE): 
; 3494 737 RET URN (SMG$_INVARG); 
; 3495 738 TES; 
: 3496 739 END; 
; 3497 740 
; 3498 741 LOCAL_COUNT = 1; ! init to default 
; 3499 Mg 
; 3500 74 IF NOT NULLPARAMETER (COUNT) 
; 3501 744 THEN 
3 4 745 BEGIN ' check caller's count 
: $20 74 IF ..COUNT GTR 0 
; 3504 74 THEN , 
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; 3505 7% LOCAL_COUNT = ..COUNT 
3 Be 74 ELSE 
; 350 20 RETURN (SMG$_INVARG); 
; 3508 751 ND; 
; 4 7 ¢ 
: 10 7 ‘+ 
: 3511 754 ! Now all the arguments are set up. Call an internal routine to do 
; ei¢ 755 ' the real work. 
3; 351 738 '= 
; 35146 75 
3; 3515 758 STATUS = SMGSSSCROLL_AREA (.0CB, 
; 218 759 -LOCAL_ROW, .LOCAL_COL, 
> 351 760 -LOCAL-HEIGHT, .LOCAL WIDTH, 
; 3518 761 -LOCAL_DIR, .LOCAL_COONT); 
; 219 26 IF NOT (.STATUS) THEN RETURN (.STATUSS; 
: $31 764 ‘+ 
3 : § re? The internal routine did not reset the cursor position. Do that here. 
3 $84 767 
3 3525 768 DCB DCB_u_CURSOR_ROW] = ,LOCAL_ROW; 
; 3526 3769 DCB CDOCB-W-CURSOR-COLJ = .LOCAL~COL; 
; 3527 3770 
i 3859 34h) ; i*y ff Lling si h d th 
3 ; urn o scro ing since we have moved the cursor. 
4 389 3778 !- ° 
; 331 77% ‘ 
; 35 ; 3775 DCB COCB_V_FULL] = 0; 
3; 353 3776 2 
i 3836 378 5 i*see it this ch hould be reflected h diatel 
: ' See this change shout e reflected on the screen immediately. 
: 3536 3779 5 i- . . 
; $285 3780 § 
; 3538 3781 RETURN (SMG$S$SCHECK_FOR_OUTPUT_DCB (.DCB 
; 3539 3782 2 SMG$C_SCROLL_DISPLAY_AREA)); 
; 3540 3783 1 END; ! End of routine SMGSSCROLL_BISPLAY_AREA 
01FC 00000 ENTRY SMGSSCROLL_DISPLAY_AREA, Save R2,R3,R4,R5.- ; 3578 
“8 000000006 00 3 0000 MOVA SMG$_INVARG, R8& 3 
50 6C 01 83 0000 SUBB3 #1, TAP), DIFF : 3676 
06 50 91 00000 CMPB sé‘, #6 ; 
08 18 00010 BLEQU 3 
50 00000000G 8F 00 Bote MOVL #SMG$_WRONUMARG, RO : 
04 0001 RET 3 
50 ee C pO Bante 1$ MOVL @DISPLAY_ID, RO ; 3678 
C4 «BC 8 AO D1 OO1F CMPL 56(RO), SDISPLAY_ID ; 
06 12 000 BNEQ . 
1 44 AC 91 00025 CMPB 8(RO), #17 : 
ge 13 00029 BEQL s 
50 00000000G 8F ? 44 : 23 Ht #SMG$_INVDIS_ID, RO ; 
52 04 BC 00 000 3$ MOVL @DISPLAY_ID, DCB 3 
j 
| 
i 


ooo 


dD 4 
| FASEB ISPLAT CHA SMGSDISPLAY_ CHANGE = Virtual Display -- Changes 16-Sep- 
1-06 SMGESCROLL BISPLAY_AREA = Scroll rectangular ar 14-Sep- 


51 02 A2 
50 06 A2 
53 62 
53 02 A2 
53 04 A2 
53 06 Ae 


02 6¢ 91 8 7 
43 1f A 
08 ac 3 003¢ 
3 13 Q005F 
03 $f 91 00041 
1F 00044 
oc 8 AC 3 B2e8 
34 (1 44 
51 08 BC rt 0048 
08 15 0004F 
10 00 €D 00051 
ee 18 ied 
50 000000006 8F 00 00059 4$: 
04 09060 
50 oc BC rt 4462 5$: 
08 15 00065 
10 00 €D 00067 
08 18 00060 
50 000000006 8F DO QOO6F 6$: 
04 00076 
56 51 DO 00077 7$: 
57 50 DO QO07A 
07 11 0007D 
56 48 A2 3C OOO7F 8$: 
57 01 pO 00083 
50 4A A2 3C 00086 9$ 
50 56 C2 OQO08A 
50 06 0008D 
04 6C 91 O008F 
20 1F 00092 
10 AC D5 00094 
1B 13 00097 
51 10 BC DO 00099 
53 FF A641 9E 00090 
10 00 €ED OOOA 
32 14 QOOA 
10 00 ED O00A9 
gf 19 OOOAF 
50 1 00 00081 
55 06 A2 3C 00084 108: 
05 6C 91 00088 
28 1F 00088 
14 AC D5 00080 
> ae pp 8cd 
51 14 BC DO 000C 
53 FF A741 9E 000C6 
10 00 ED 000CB 
08 14 000D1 
10 00 ED Bp b8 
07 18 00009 
53 98 9E QOOODB 11$: 
50 53 DO QOODE 
04 43 
55 51 DO itt 193: 
54 01 BY 443 13$: 
06 6C 91 QOOES 
20 1F QOOEB 


1986 98:08:25 


ont Bliss-32 V4.0-74 
SMGRTL.SRCJSMGDISCHA.B352;1 


@START_ROW, RI 
#0, #16, 2(DCB), R1 
7SMG$_INVROW, RO 
@START COL, RO 

#0, #16, 6(DCB), RO 
#SMG$_INVCOL, RO 


R1, LOCAL_ROW 
RO. LOCAL COL 


72(DCB), LOCAL_ROW 
, LOCAL_COL 
», RO 
LOCAL_ROW, RO 
LOCAL ~HEIGHT 
AP), "#4 


NBewo 
or 
- 


10$ 
16 (AP) 
10$ 
@HEIG 


HT, R1 
=1(LOCAL_ROW)CR1], R3 
#0, #16, (DCB), R3 


11 
fh #16, 2(DCB), R3 
R1, LOCAL HEIGHT 


6(DCB), LOCAL_WIDTH 
(AP), #5 


Page 104 
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3686 


3689 


| 
| 


= 
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f 
SMGSDISPLAY_CHA SMGSDISPLAY_CHANGE = Virtual Display <= Changes 1bese Sep-1984 00:16:3 AX-11 Bliss-32 V4.0-74 Page 105 
Beit SMGSSCROLL_BISPLAY_AREA = Scroll rectangular er 14- moet 1 90:38:28 SMGRTL.SRCJSMGDISCHA.B32;1 oe 193 
| 18 «ac 03 E TSTL $4 (AP) ; 
| ? 01 18 ec bP Soor BASEL @DIRECTION, #1, #7 : 3731 
1 ze 0012 001 F? 14$ <WORD 15$-14$,- : 
| tH 88 E 002E 002E OOF F 15$-14$.- ; 
17$-14$,- : 
15$-14$,- : 
17$-14$.- : 
17$-14$,- : 
17$-14$,- 3 
15$-14$ : 
1c (11 0107 BRB 17$ + 2737 
54 18 BC DO 00109 15$: MOVL @DIRECTION, LOCAL _DIR : 3734 
53 01 DO 00100 16$: MOVL #1, LOCAL_COUN : 3741 
07 6C 91 0011 CMPB (AP), #77 : 3743 
17 16 0011 BLSSU-18$ : 
1c « b3 3011 TSTL  28(AP) : 
12 13 00118 BEOL 18$ : 
1¢ BC 05 OO1IA TSTL | @COUNT : 3746 
06 15 00110 BLE =-*17$ : 
53 1¢ BC dO O011F MOVL @COUNT, LOCAL_COUNT : 3748 
07 «+11 00123 BRB 18$ : 
51 68 9E 00125 17$: MOVAB SMG$_INVARG, R1 : 3750 
50 51 DO 00128 MOVL 1, RO ; 
04 001¢8 RET : 
53 DD 0012C 18$ PUSHL LOCAL ~COUNT : 3761 
54 DD 001 ¢e PUSHL LOCAL DIR : 
21 BB 00130 PUSHR FMCRO. ge ; 3760 
00c4 8F BB 00132 PUSHR &#*M<R2_R : 3758 
000000006 00 07 FB 00136 CALLS #7, SAESSECROLL _AREA : 
17 50 £9 0013D BLBC STATUS, 19$ : 3762. 
28 2 56 BO 00140 MOVW  LOCAL_ROW, 40(DCB) : 3768. 
2A A 57 BO 00144 MOVW LOCAL~COL, 42(DCB) : 3769 
34 A2 01 BA 00148 BICB2 #1, 52(DCB) > 3775 
1A DD 0014C PUSHL #26 : 3781. 
52 DD OO014E PUSHL DCB F | 
000000006 00 02 FB 00150 CALLS #2, SMGS$CHECK_FOR_OUTPUT_DCB ; 
04 00157 198: RET : 3783 


; Routine Size: 344 bytes, Routine Base: _SMGSCODE + 13A4 


; 3541 3784 1 !<BLF/PAGE> 


re 
| 


' 


-y 
=z 
za 


J 
- 


| F 4 

| SMGSDISPLAY_CHA SMGSDISPLAY CHANGE = Virtual Display <= Changes 16-Sep-1984 00:16:3 AX-11 Bliss-32 V4.0-74 Page 1 

yim SMGSSET_CURSOR_ABS = Set absolute curser positi 1328 8-138e 99:08:25 USMGRTL SRE SMGDISCHA.B32;1 : (20) 
ZSBITL ‘SMGSSET_CURSOR_ABS = Set absolute cursor position’ 

GLOBAL ROUTINE SMGSSET-CURSOR_ABS ( 


, a ee 
we 

NN 

oD 

fo] 


++ 


FUNCTIONAL DESCRIPTION: 


Position cursor to absolute row and column specified. 
Return SMG$_INVROW or SMGS_INVCOL if either position is outside 


of the virtual display area. 
! CALLING SEQUENCE: 


ret_status.wlc.v = SMGSSET_CURSOR_ABS ( 
DISPLAY_ID.rl.r 
»ROW_NOM. rior] 
,COL-NUM.rl.r J) 


i FORMAL PARAMETERS: 


807 DISPLAY_ID.rl.r Display id of desired display. 


POMOMONIAPNN we Os es os ss sw ss ws ws ss es es ss ss i nn nn nn 8 nn tt a ss SS Ss 4 Ss 


Be Be Be Se Be Be Se Be Be Be Be Se Be He Ge Se Se Se Be Be Se Se Se Se Se Ge Ge Se Se FH Se Se SH Se HSH Se Se Se Oe Oe SH Se OH Se oe Oe HSH Oe Oe Oe Oe Oe ee ee 


| 
j 
3 
3 
3 
3 ge08 3 ‘ h 
3 809 ROW_NUM.rl.r Row position. If not supplied, row number is 
; eei% not altered from current position. 
3 Hat COL_NUM.rl.r Column position. If not supplied, column number 
: siz is not altered from current position. 
3 3815 IMPLICIT INPUTS: 
3 3816 
3 3817 NONE 
3 3818 
3 3819 ' IMPLICIT OUTPUTS: 
3 3820 
3 3821 NONE 
3 $E56 
3 $B5z COMPLETION STATUS: 
3 3825 : S$S$_NORMAL Normal successful completion 
3584 3826 SMGS$_INVROW Invalid row number 
3585 3827 ! SMG$_INVCOL Invalid column number 
3586 $856 : SMG$_WRONUMARG Grong quaver arguments. 
3587 a$p : SMG$_INVDIS_ID Invalid display Id. 
3588 3830 ! 
3589 3831 ! SIDE EFFECTS: 
3590 S36 : 
3591 83 ; NONE 
238 834 l—= 
59 835 BEGIN 
594 836 BUILTIN 
595 837 NULLPARAME TER; 
596 838 
597 839 LOCAL E 
598 thee STATUS, ! Status of subroutine calls 
3599 841 ROW, ! Working row number 


Be Be Se Be Se Oe Oe Se Oe Be Oe Se Se Be Se Se Oe Se Oe Be FHF Se Be Se Oe Be Be Oe Oe Be Oe Oe Oe we Be Be Se Oe Oe Se OF Oe Se ee Oe Oe Oe Oe Se Oe HOH Oe Be ee 
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| 
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84 
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4 
PLAY CHANGE = Vi -- -Sep- :16: . .0- 
CURSOR-ABS = Set absolute cursor poste? gegen 198 3:08:23 Hemant. °sredsmenls 


COL, ! Working column number 
DCB : REF SDCB_DECL; ! Addr. of display control block 


SSMGSVALIDATE_ARGCOUNT (1,3); 
SSMGSGET_DCB ( .DISPLAY_ID, DCB); set peerese of display control 
! bloc 


ROW = (IF NOT NULLPARAMETER (ROW_NUM) THEN ..ROW_NUM 
ELSE .0CB [DCB_W_CURSOR_ROW]); 


COL = (IF NOT NULLPARAMETER (COL_NUM) THEN ..COL_NUM 
ELSE .DCB [DCB_W_CURSOR_COL)); 
irs 
Make sure resulting position is still within the virtual display. 
i¢ 
: Validity check row and column specified 
SSMGSVALIDATE_ROW_COL ( .ROW, .COL); 


'¢ 

Ok, set them. 

DCB FOCB WU _CURSOR ROW) = .ROW; 

DCB COCB_W_CURSOR_COLJ = .COL; 

'¢ 

! We have altered the cursor position so obviously sequential output 
has been interupted. Turn off the scrolling bit. 


DCB COCB_V_FULL] = 0; 


RETURN (SMGSS$CHECK_FOR_OUTPUT_DCB (.DCB 
SMG$C_SET_CURSOR_ABS)); 


END; ! End of routine SMGS$SET_CURSOR_ABS 
0004 00000 .ENTRY SMGSSET_CURSOR_ABS, Save R2 
50 6C 01 83 00002 SUBB3 #1, (APY, DIFF 
02 50 91 00006 CMPB ODF, #2 
08 18 00009 BLEQU 1$ 
50 000000006 8F pO 9000 OVL #SMG$_WRONUMARG, RO 
50 0 BC D0 0001 1$ MOVL § @DISPLAY_ID, RO 
06 BC 8 AO D1 0001 CMPL  56(RO), SDISPLAY_ID 
06 12 0001C BNEQ = 2$ 
1 44 AO 91 OO15 CMPB 68(RO), #17 
08 13 000 BEQL $ 
50 000000006 8F D0 990 4 2% MOVL § #SMG$_INVDIS_ID, RO 
04 000 RET 


arts 0 ae 
SMGRTIL.SRCJSMGDISCHA.B52;1 


roe J 


3786 
3845 


3847 


-0 


De Be Be Oe Oe Oe Oe Se Oe Oe Oe BH Se Oe Be Be Se Se SH He Se SH Se SHS SESH He Se Se Oe Se ae SH Se Se ae Se SESE TH SH SH Se SHS Se Se Se SESH ee SESE Se Be ae 


pe —_ 


H & 
SMGSDISPLAY_CHA SMGS$DISPLAY_CHANGE = Virtual Display <= Changes 16-Sep-1984 00:16:3 AX-11 Bliss-32 V4.0-74 Page 108 
ta SMGSSET_CURSOR_ABS = Set absolute curser pos tf 1e-sep-19 4 90:08:28 SMGRTL.SRCJSMGDISCHA.B32;1 9° 20) 

30 04 ac po 3$ MOVL  @DISPLAY_ID, DCB ; 
¢ 91 CMPB (AP), #2 : 3851 
B iF BLSSU 4 : 
08 AC OD 99 TSTL  8(AP) : 
| 06 1% 000 BEQL : 
52 08 BC 00 0003A MOVL § @ROW_NUM, ROW : 
4 11 99 : BRB 5$ : 
52 28 AO 3¢ 0040 4$: MOVZWL 40(DCB), ROW : 3852 
0 6¢ 1 D044 S$: CMPB (AP), #8 + 3854 
B 1F 00047 BLSSU6$ ; 
0c AC D5 00049 TSTL  12¢AP) : 
06 1 9904¢ BEQL 6s 66S : 
51 0c BC dd 00 4g MOVL § @COL_NUM, COL : 
04 11 0005 BRB 7$ : | 
51 2a =sAO 3¢ 0054 g$: MOVZ2WL 42(DCB), COL : 3855 
52 DS 00058 7$: TSTL ROW : 3863 
08 15 O005A BLE : 
52 02 ad 10 00 €D 9005¢ CMP7V #0, #16, 2(DCB), ROW : 
08 18 0006 BGEQ 46=s-:«&9$ : 
50 000000006 8F DO 00064 8S MOVL § #SMG$_INVROW, RO : 
04 00068 RET ; 
51 D5 9006 9$: TSTL COL : 
08 15 OO6E BLEQ 10$ : 
51 06 Ad 10 00 ED 0007 CMP2v #0, #16, 6(DCB), COL ; 
08 18 00076 BGEQ 118 : 
50 000000006 18F 00 00078 10$:  MOVL = #SMGS_INVCOL, RO ; 
04 0007F RET F | 
28 =A 52 BO 00080 11$: MOVW ROW, 40(DCB) : 3868 
eA AO 51 BO 00084 MOVW COL, 42(DCB) : 3869. 
4 Ao 01 8A 00088 BICB2 #1. 52(DCB) : 3876 
16 DD 0008C PUSHL #22 : 3878 
50 DD 0008 PUSHL DCB : | 
000000006 00 02 FB 00090 CALLS #2, SMGSS$CHECK_FOR_OUTPUT_DCB ; 
04 00097 RET : 3880 
; Routine Size: 152 bytes, Routine Base: _SMGSCODE + 14FC 


; 3639 3881 1 !<BLF/PAGE> 


re 
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4 
| FASEB ISPLATCHA SMGSDISPLAY CHANGE = Virtual Display -- Change 1b-sep-1984 0 18:78 AX-11 Bliss-32 V4.0-74 
-04 SMGSSET_CURSOR_REL = Set relative cursor pos ti 14-Sep-1984 15:09:4 SMGRTL.SRCISMGDISCHA.B32;1 


; 3641 82 1 XZSBTTL “SMGSSET_CURSOR_REL = Set relative cursor position’ 

; org 1 GLOBAL ROUTINE SMGSSET"CURSOR_REL ( 

; 364 4 1 DISPLAY_ID, 

> 3644 85 1 DELTA_ROW, 

; 3645 iy 1 DEL TA_COLUMN 

; 364 1 d= 

; 364 $43 1 !¢4 

; 3648 rf: 1 ! FUNCTIONAL DESCRIPTION: 

; 35649 90 1! 

; 3650 891 1! Position cursor to relative row and column specified -- 

; 3651 £36 , relative to current position. 

3 626 5 1} If aed te DELTA_ROW or DELTA_COLUMN takes us outside of the 
3 th Boe : virtual display, return SMGS$_INVROW or SMG$_INVCOL respectively. 
; 3655 896 1! 

; 365 897 1 ! CALLING SEQUENCE: 

; 365 898 1! 

; 3658 899 1! ret_status.wic.v = SMGSSET_CURSOR_REL ( 

; 3659 900 1! TSPLAY_ID.rl.r 

; 3660 901 1! -DELTA_ROW.rl.rJ 

; 35661 902 1! -DELTA_COLUMN.rl.r J) 

; o6¢ 903 1! 

; 366 904 1 ! FORMAL PARAMETERS: 

; 3664 905 1! 

3 232 Boe 1 DISPLAY_ID.rl.r Display id of desired display. 

; 3667 908 1! DELTA_ROW.ri.r Delta row position (-delta, +delta) 
: 3668 909 1! If not supplied, row number is not 
: $34 Bit : } altered from current position. 

; 3671 $018 1: DELTA_COLUMN.rl.r Delta_column position (-delta, +delta) 
; 367 3913 1! :f not supplied, column number is not 
; 367 at 1! altered from current position. 

; 356746 915 1! 

; 3675 3916 1! 

; 3676 3917 1 ! IMPLICIT INPUTS: 

; 3677 918 1! 

; 35678 919 1! NONE 

; 3679 920 1! 

; 3680 921 1 ! IMPLICIT OUTPUTS: 

; 3681 9 ; 1: 

; 368 9 ; NONE 

; 368 9246 1! 

3 35684 925 1 ! COMPLETION STATUS: 

; 3685 9 § 1: ‘ 

; 3686 9 1! SS$_NORMAL Normal successful completion 

; 3687 928 1! SMGS_INVROW When delta_column is added to current column 
; 35688 38 1! SMG$_INVCOL and/or del€a_row is added to current row, 

; 3689 ve resulting row or column is outside virtual 
:; 3690 931 1! display. 

3 4 836 ' SMG$_WRONUMARG Wrong number arguments. 

; 369 934 1 ! SIDE EFFECTS: 

; 5694 3 ¥4 7: 

:; 3695 9 § 7! NONE 

3 O76 937 1 I= 

; 369 938 2 BEGIN 


4 
AY CHANGE = Virtual Display == Change 1b-se 1984 00:16:3 AX-1! Bliss-32 V4 
_CURSOR_REL = Set relative cursor posits 1 730071382 99:08:26 


—-—_—_- -—---- -- -- 


Pp 


me 
or 


38 3 BUILTIN 
NULLPARAMETER; 
1 LOCAL 
¢ STATUS, ! Status of subroutine calls 
D_ROW, ! Working delta row 
04 D_CcOL, ! working delta column 
705 DCB : REF $DCB_DECL; ' Addr. of display control block 


SSMGSVALIDATE_ARGCOUNT (1,3); 


5 

T 
: 37 
; 37 
3; 3708 
3; 37 SSMGSGET_DCB ( .DISPLAY_ID, DCB); ! Get address of display controi 
; 3710 ' block 
et 
; 8 D_ROW = (IF NOT NULLPARAMETER (DELTA_ROW) THEN ..DELTA_ROW 
; Hare ELSE 0); 
: 3716 D.COL = (IF NOT NULLPARAMETER (DELTA COLUMN) THEN ..DELTA_COLUMN 
> 3717 ELSE 0); 
; 3718 
; 3719 '+ 
3 3731 44 } Make sure resulting position is still within the virtual display. 
: ree 96 "IF .DCB CDOCB_W_CURSOR_ROW] + .D_ROW LSS 1 OR 
; 3733 966 joe DCB-W-CURSOR-ROW] + .D7ROW GTR .DCB CDCB_W_NO_ROWS) 
; 3725 3366 5 RETURN (SMG$_INVROW) ; 
: 3758 3968 IF .DCB FDCB_u_CURSOR. COL} + .D_COL LSS 1 OR 
; 3728 969 ice DCB-W-CURSOR-COL] + .D-COL GTR .DCB CDCB_W_NO_COLS) 
; 486 971 RETURN (SMGS_INVCOL); 
> 3731 97 
3 rag 97 '+ 
3 4 are Ok, set them. 
: 3 5 976 2  ~ vCB DCB_u_CURSOR_ROW) = .D0CB FOCB_u_CURSOR ROW] + .D_ROW; 
; 5157 3977 DCB CDCB[WICURSOR-COL) = .DCB COCB"W7CURSOR-COL] + .D7COL: 
: 3738 3979 '¢ 
3; 3739 980 ! Turn off scrolling. 
: 3740 3981 ie 
: 3741 98¢ 
; tg 4 +4 DCB COCB_V_FULL) = 0; 
: 3744 985 RETURN (SMGS$CHECK_FOR_OUTPUT_DCB (.0CB 
: 3745 986 2 SMG$C_SET_CURSOR_REL)); 
: 3746 987 1 END; ! End of routine SMGS$SET~CURSOR_REL 

009¢ 00000 sENTRY SMGSSET_CURSOR_REL, Save R2,R3 
50 6C Qi 83 00002 SUBB3 #1, (APY, DIFF 
02 0 91 06006 CMPB sé‘, we 


7 rat 
SMGRTL.SRCJSMGDISCHA.B52;1 


Page 110 
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Kk 4 
ISPLAY_CHA SMGSDISPLAY_CHANGE = Virtual Display <= Changes 16-Sep-1984 00:16:3 AX-11 Bliss-32 V4.0-74 
ergeR SMGSSET_CURSOR_REL = Set relotive curser pos iti eet 90:08:28 SMGRTL.SRCJSMGDISCHA.B32;1 
8 18 00009 BLEQU 1$ 
50 000000006 BF 08 0 ; OVL #SMG$_WRONUMARG, RO 
50 4 BC DO 000138 1$ MOVL DISPLAY_ID, RO 
06 8c % ra D1 $64 CMPL MRO) 3D1SPLAY_ID 
0 N¢ 001C BNE $ 
1 44 Ad 9 Oot CMPB 8(RO), #17 
9 13 0 BEQL $ 
50 000000006 8F v6 99 4 28: OVL #SMG$_INVDIS_ID, RO 
50 04 BC DO 0002C 38: MOVL § @DISPLAY_ID, DCB 
02 6¢ 91 09 CMPB sé A?) #2 
B iF 00 BLSSU 4 
08 AC 05 00 TSTL (AP) 
06 1 00 8 BEQL 4$ 
53 08 BC 0d 005A MOVL § @DELTA_ROW, D_ROW 
0¢ 11 0003 BRB + 
D4 0004 4$: CLRL D_ROW 
03 6C 91 00042 S$: (MPR sé AP), #3 
OB 1F 0004 BLSSU-6$ 
0c AC D5 00047 TSTL  12¢AP) 
06 13 0004 BEQL 
52 0c BC dd 0004c¢ MOVL § @DELTA_COLUMN, D_COL 
08 1% 00050 BRB 7$ 
b4 00052 68: CLRL =D -COL 
51 28 A0 C 00054 7$: MOV2WL 40(DCB), R1 
51 53 CO 00058 ADDL2  D_ROW, R1 
08 15 00058 BLEG 
51 02 Ad 10 00 €D 0005p CMPZ7V #0, #16, 2(DCB), RI 
09 18 0006 BGEQ 46=s«O9S 
51 000000006 00 9E 00065 8s MOVAB SMG$_INVROW, R1 
18 11 0006C BRB 11$ 
51 2A AO 3C O006E 9S MOVZWL 42(DCB), R1 
51 32 CO 0007 ADDL2 0 COL, R1 
08 15 0007 BLEQ 108 
51 06 Ad 10 00 €D 00077 CMPZ7V #0, #16, 6(DCB), R1 
0B 18 0007D BGEO 
51 000000006 00 oF 0007F 10$:  MOVAB SMG$_INVCOL, R1 
50 51 00 00086 11$: MOVL a1, RO 
04 00089 RET 
28 =A 53 AO OOOB8A 12$ ADDW2 D_ROW, 40(DCB) 
2A =A 52 A OO08E ADDW2 D7COL. 42(DCB) 
34 Ad 01 8A 0009 BICB2 #T. 52(DCB) 
17 DD 00096 PUSHL #28 
50 DD 00098 PUSHL DCB 
000000006 00 02 FB O009A CALLS #2, SMGSSCHECK_FOR_OUTPUT_DCB 
04 000A1 RET 


; Routine Size: 162 bytes, Routine Base: _SMGSCODE + 1594 


; 3747 3988 1 !<BLF/PAGE> 
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“SMGSDISPLAY_CHA SMGSDI 
1-04 SMG 


$SE 
749 989 
750 99 
751 991 
Name 
_SMGSCODE 
File 


S0UA38:ESmoRTL.0BJ3R1 


SMGRTL. 


SMGRTL 


_$255 
“$255$DUA28: 
“$255$DUA28: 


SPLAY_CHANGE = Virtual Display -- Chenges 18-Sep-1984 9 16:78 


AX-11 Oi regen V4.0-74 


T_CURSOR_REL = Set relative cursor pos 14-Sep-19 SMGRTL.SRCISMGDISCHA.B52;1 
} END ! End of module SMGSDISPLAY_CHANGE 
0 ELUDOM 


PSECT SUMMARY 
Bytes 


Library Statistics 


eroceee= Symbols -<---e-- 

Total Loaded Percent 

T.L32;1 9776 41 0 
.OBJIRTLLIB.L32;1 36 0 0 
-OBJJSMGL1B.L32;1 469 31 6 


COMMAND QUALIFIERS 


~-EXTRN LIBSSTOP 


Attributes 
5686 NOVEC.NOWRT, RD, EXE, SHR, LCL, REL, CON, 


PIC, ALIGN(2) 
Pages Processing 
Mapped me 
581 00:01.0 
8 00:00.1 
38 00:00.4 


Page 112 
9 225 


SL SSS/CMECH OEE RELD 208 TIAL. SPT DRE LE) SUPTOALEA S94. SS t SREB ESCHER JORIS: SHED ESCM MSRC$:SMGDISCHA/UPDATE=(ENH$: SMGDISCHA 


5679 ¢ 
Time: : 


Lines/CPU Min: 1 
Lexemes/CPU-Min: 180 
Memory Used: 354 pa 


Compication Complete 


ode + 7 data bytes 


Run 01:51.9 
Elapsed Time: 05:2 
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